Minor changes

Yesod/Handler.hs

@@ -186,7 +186,7 @@ runHandler handler mrender sroute tomr ma tosa = YesodApp $ \eh rr cts -> do
     let handleError e = do
             (_, hs, ct, c) <- unYesodApp (eh e) safeEh rr cts
             let hs' = headers ++ hs
-            return $ (getStatus e, hs', ct, c)
+            return (getStatus e, hs', ct, c)
     let sendFile' ct fp = do
             c <- BL.readFile fp
             return (W.Status200, headers, ct, cs c)

Yesod/Helpers/Auth.hs

@@ -74,7 +74,7 @@ getOpenIdR = do
         (x:_) -> addCookie destCookieTimeout destCookieName x
     rtom <- getRouteToMaster
     let html = template (getParams rr "message", rtom)
-    applyLayout "Log in via OpenID" $ html
+    applyLayout "Log in via OpenID" html
   where
     urlForward (_, wrapper) = wrapper OpenIdForward
     hasMessage = not . null . fst

Yesod/Json.hs

@@ -1,3 +1,4 @@
+-- FIXME document
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE CPP #-}
 module Yesod.Json