rnhmjoj/breve
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Align

Browse Source
This commit is contained in:
Michele Guerini Rocco 2015-06-29 21:42:12 +02:00
parent dc84ecf71a
commit 9f0e3c902c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Views.hs
View File

@ -5,9 +5,9 @@ module Views where
import Data.Text (Text) import Data.Text (Text)
import Data.Text.Lazy (toStrict) import Data.Text.Lazy (toStrict)
import Text.Blaze.Html.Renderer.Text (renderHtml) import Text.Blaze.Html.Renderer.Text (renderHtml)
import Text.Blaze.Html5 as H import Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes as A import Text.Blaze.Html5.Attributes as A
import qualified Web.Spock.Safe as S import qualified Web.Spock.Safe as S
render :: Html -> S.ActionT IO () render :: Html -> S.ActionT IO ()
render = S.html . toStrict . renderHtml render = S.html . toStrict . renderHtml
@ -49,4 +49,4 @@ template fill =
footer $ do footer $ do
"breve is open " "breve is open "
a ! href "https://github.com/rnhmjoj/breve" $ "source" a ! href "https://github.com/rnhmjoj/breve" $ "source"
H.span "© Rnhmjoj" H.span "© Rnhmjoj"