add-handler: use Html instead of RepHtml

This commit is contained in:
Michael Snoyman 2013-04-03 16:15:16 +03:00
parent bbe69d25a2
commit 97f7979956

View File

@ -89,7 +89,7 @@ mkHandler name pattern methods = unlines
where where
go method = go method =
[ "" [ ""
, concat $ func : " :: " : map toArrow types ++ ["Handler RepHtml"] , concat $ func : " :: " : map toArrow types ++ ["Handler Html"]
, concat , concat
[ func [ func
, " = error \"Not yet implemented: " , " = error \"Not yet implemented: "