derive Show for Extra

This commit is contained in:
Greg Weber 2012-02-08 17:35:59 -08:00
parent b7924975b0
commit a26ad237dd

View File

@ -62,7 +62,7 @@ widgetFile = Yesod.Default.Util.widgetFileNoReload
data Extra = Extra data Extra = Extra
{ extraCopyright :: Text { extraCopyright :: Text
, extraAnalytics :: Maybe Text -- ^ Google Analytics , extraAnalytics :: Maybe Text -- ^ Google Analytics
} } deriving Show
parseExtra :: DefaultEnv -> Object -> Parser Extra parseExtra :: DefaultEnv -> Object -> Parser Extra
parseExtra _ o = Extra parseExtra _ o = Extra