Add missing spaces
This commit is contained in:
parent
257e94f474
commit
9857fca38e
@ -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"
|
Loading…
Reference in New Issue
Block a user