some cleanup
This commit is contained in:
parent
d8d4b5b306
commit
cfad583b75
2 changed files with 2 additions and 2 deletions
|
@ -32,7 +32,7 @@ postLoginR = do
|
||||||
setMessage $ "Login error"
|
setMessage $ "Login error"
|
||||||
redirect $ LoginR
|
redirect $ LoginR
|
||||||
Nothing -> do
|
Nothing -> do
|
||||||
setMessage $ [shamlet|<pre>User does not exist|]
|
setMessage "User does not exist"
|
||||||
redirect $ LoginR
|
redirect $ LoginR
|
||||||
|
|
||||||
loginForm :: Form Credentials
|
loginForm :: Form Credentials
|
||||||
|
|
|
@ -4,6 +4,6 @@
|
||||||
<img src=#{mediumPath medium}>
|
<img src=#{mediumPath medium}>
|
||||||
|
|
||||||
<div class="desc">
|
<div class="desc">
|
||||||
Uploaded on: #{formatTime defaultTimeLocale "%A %F %H:%M" (mediumTime medium)}
|
Uploaded on: #{formatTime defaultTimeLocale "%A %F %H:%M" (mediumTime medium)}<br>
|
||||||
Description:<br>
|
Description:<br>
|
||||||
#{mediumDescription medium}
|
#{mediumDescription medium}
|
||||||
|
|
Loading…
Reference in a new issue