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

Add missing spaces

Browse Source
This commit is contained in:
rnhmjoj 2015-05-10 03:29:17 +02:00
parent 257e94f474
commit 9857fca38e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Views.hs
View File

@ -19,7 +19,7 @@ done url = template $ do
index :: Html index :: Html
index = template $ do index = template $ do
H.form ! method "POST" $ do H.form ! method "POST" $ do
"your url:" "your url: "
input ! type_ "text" ! name "url" input ! type_ "text" ! name "url"
input ! type_ "submit" ! value "go" input ! type_ "submit" ! value "go"
@ -46,6 +46,6 @@ template fill =
h2 "a url shortener" h2 "a url shortener"
H.div ! A.id "center" $ fill H.div ! A.id "center" $ 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"