haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Better Show HandlerContents

Browse Source
This commit is contained in:
Michael Snoyman 2013-05-01 14:37:45 +03:00
parent 4e2041a1e3
commit 3956958b7a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-core/Yesod/Core/Types.hs
View File

@ -346,7 +346,12 @@ data HandlerContents =
deriving Typeable deriving Typeable
instance Show HandlerContents where instance Show HandlerContents where
show _ = "Cannot show a HandlerContents" show (HCContent status (TypedContent t _)) = "HCContent " ++ show (status, t)
show (HCError e) = "HCError " ++ show e
show (HCSendFile ct fp mfp) = "HCSendFile " ++ show (ct, fp, mfp)
show (HCRedirect s t) = "HCRedirect " ++ show (s, t)
show (HCCreated t) = "HCCreated " ++ show t
show (HCWai _) = "HCWai"
instance Exception HandlerContents instance Exception HandlerContents
-- Instances for WidgetT -- Instances for WidgetT