some cleanup

Handler/Login.hs

@@ -32,7 +32,7 @@ postLoginR = do
               setMessage $ "Login error"
               redirect $ LoginR
         Nothing -> do
-          setMessage $ [shamlet|<pre>User does not exist|]
+          setMessage "User does not exist"
           redirect $ LoginR
 
 loginForm :: Form Credentials

templates/medium.hamlet

@@ -4,6 +4,6 @@
   <img src=#{mediumPath medium}>
 
 <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>
   #{mediumDescription medium}