diff --git a/Yesod/Handler.hs b/Yesod/Handler.hs
index aafbaeed..974b6b0a 100644
--- a/Yesod/Handler.hs
+++ b/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)
diff --git a/Yesod/Helpers/Auth.hs b/Yesod/Helpers/Auth.hs
index 1a01edf5..675272e5 100644
--- a/Yesod/Helpers/Auth.hs
+++ b/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
diff --git a/Yesod/Json.hs b/Yesod/Json.hs
index e927ab49..d848cec2 100644
--- a/Yesod/Json.hs
+++ b/Yesod/Json.hs
@@ -1,3 +1,4 @@
+-- FIXME document
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE CPP #-}
 module Yesod.Json