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

Field names for GWData

Browse Source
This commit is contained in:
Michael Snoyman 2012-07-04 17:53:47 +03:00
parent 7c4d6b5e47
commit 9fdb8c9d2d
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
yesod-core/Yesod/Internal.hs
View File

@ -99,13 +99,14 @@ tokenKey = "_TOKEN"
type CssBuilderUrl a = (a -> [(Text, Text)] -> Text) -> Builder type CssBuilderUrl a = (a -> [(Text, Text)] -> Text) -> Builder
data GWData a = GWData data GWData a = GWData
!(Body a) { gwdBody :: !(Body a)
!(Last Title) , gwdTitle :: !(Last Title)
!(UniqueList (Script a)) , gwdScripts :: !(UniqueList (Script a))
!(UniqueList (Stylesheet a)) , gwdStylesheets :: !(UniqueList (Stylesheet a))
!(Map.Map (Maybe Text) (CssBuilderUrl a)) -- media type , gwdCss :: !(Map.Map (Maybe Text) (CssBuilderUrl a)) -- media type
!(Maybe (JavascriptUrl a)) , gwdJavascript :: !(Maybe (JavascriptUrl a))
!(Head a) , gwdHead :: !(Head a)
}
instance Monoid (GWData a) where instance Monoid (GWData a) where
mempty = GWData mempty mempty mempty mempty mempty mempty mempty mempty = GWData mempty mempty mempty mempty mempty mempty mempty
mappend (GWData a1 a2 a3 a4 a5 a6 a7) mappend (GWData a1 a2 a3 a4 a5 a6 a7)