From 97f7979956722fe362fd3d870c40bbf872963c5e Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 3 Apr 2013 16:15:16 +0300
Subject: [PATCH] add-handler: use Html instead of RepHtml

---
 yesod-bin/AddHandler.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod-bin/AddHandler.hs b/yesod-bin/AddHandler.hs
index 04ffc8cf..49fe5685 100644
--- a/yesod-bin/AddHandler.hs
+++ b/yesod-bin/AddHandler.hs
@@ -89,7 +89,7 @@ mkHandler name pattern methods = unlines
   where
     go method =
         [ ""
-        , concat $ func : " :: " : map toArrow types ++ ["Handler RepHtml"]
+        , concat $ func : " :: " : map toArrow types ++ ["Handler Html"]
         , concat
             [ func
             , " = error \"Not yet implemented: "