some cleanup

This commit is contained in:
nek0 2014-08-18 13:18:42 +02:00
parent d8d4b5b306
commit cfad583b75
2 changed files with 2 additions and 2 deletions

View file

@ -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

View file

@ -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}