Redundant chooseRep (thanks Tyson Whitehead)

2011-06-09 13:04:59 +03:00 · 2011-06-09 13:04:59 +03:00 · cc813d9201
commit cc813d9201
parent 709d9b7547
1 changed files with 1 additions and 1 deletions
--- a/Yesod/Handler.hs
+++ b/Yesod/Handler.hs
@ -400,7 +400,7 @@ runHandler handler mrender sroute tomr ma sa =
            return $ YARPlain H.status200 (headers []) ct (ContentFile fp p) finalSession
    case contents of
        HCContent status a -> do
-            (ct, c) <- liftIO $ chooseRep a cts
+            (ct, c) <- liftIO $ a cts
            return $ YARPlain status (headers []) ct c finalSession
        HCError e -> handleError e
        HCRedirect rt loc -> do