From cc813d920169901492da3afca970ead0451ba99d Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 9 Jun 2011 13:04:59 +0300
Subject: [PATCH] Redundant chooseRep (thanks Tyson Whitehead)

---
 Yesod/Handler.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Yesod/Handler.hs b/Yesod/Handler.hs
index da0010c9..fb13dc11 100644
--- 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