Add missing spaces

master
rnhmjoj 2015-05-10 03:29:17 +02:00
parent 257e94f474
commit 9857fca38e
1 changed files with 2 additions and 2 deletions

View File

@ -19,7 +19,7 @@ done url = template $ do
index :: Html
index = template $ do
H.form ! method "POST" $ do
"your url:"
"your url: "
input ! type_ "text" ! name "url"
input ! type_ "submit" ! value "go"
@ -46,6 +46,6 @@ template fill =
h2 "a url shortener"
H.div ! A.id "center" $ fill
footer $ do
"breve is open"
"breve is open "
a ! href "https://github.com/rnhmjoj/breve" $ "source"
H.span "© Rnhmjoj"