1
1
mirror of https://github.com/aelve/guide.git synced 2024-11-23 21:13:07 +03:00
This commit is contained in:
Artyom 2016-02-26 13:50:15 +03:00
parent 3bc6d47868
commit bd2a6ee11b

View File

@ -464,8 +464,7 @@ renderCategoryNotes editable category =
button "Cancel" [] $ button "Cancel" [] $
JS.setCategoryNotesMode (this, category^.uid, Editable) JS.setCategoryNotesMode (this, category^.uid, Editable)
emptySpan "6px" emptySpan "6px"
span_ [style_ "font-size:80%"] "Markdown"
"Markdown is supported"
renderCategory :: Category -> HtmlT IO () renderCategory :: Category -> HtmlT IO ()
renderCategory category = renderCategory category =
@ -519,7 +518,7 @@ renderItemInfo editable item =
JS.setItemInfoMode (this, item^.uid, InEdit) JS.setItemInfoMode (this, item^.uid, InEdit)
InEdit -> do InEdit -> do
let handler s = JS.submitItemInfo (this, item^.uid, s) let handler s = JS.submitItemInfo (this, item^.uid, s)
form_ [style_ "font-size:80%", onFormSubmit handler] $ do form_ [onFormSubmit handler] $ do
label_ $ do label_ $ do
"Package name: " "Package name: "
input_ [type_ "text", name_ "name", input_ [type_ "text", name_ "name",