add-handler: use Html instead of RepHtml
This commit is contained in:
parent
bbe69d25a2
commit
97f7979956
@ -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: "
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user