aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-12-23 21:02:13 +03:00
Code Issues Projects Releases Wiki Activity

Minor

Browse Source
This commit is contained in:
Artyom 2016-02-14 14:22:47 +03:00
parent 3e82ff2ea3
commit 1ea52350e5
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Main.hs
View File

@ -152,6 +152,8 @@ renderCategory category =
[category^.catId]
input_ [type_ "text", placeholder_ "new item", onkeyup_ handler]
-- TODO: when the link for a HackageLibrary isn't empty, show it separately
-- (as “site”), don't replace the Hackage link
renderItem :: Item -> Html ()
renderItem item =
div_ [class_ "item"] $ do
@ -179,10 +181,7 @@ includeJS :: Text -> Html ()
includeJS url = with (script_ "") [src_ url]
includeCSS :: Text -> Html ()
includeCSS url = link_ [
rel_ "stylesheet",
type_ "text/css",
href_ url ]
includeCSS url = link_ [rel_ "stylesheet", type_ "text/css", href_ url]
lucid :: Html a -> ActionT IO a
lucid = html . TL.toStrict . renderText