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

Fix Haddocks (#277)

Browse Source
This commit is contained in:
Michael Snoyman 2012-02-21 15:17:36 +02:00
parent 8a3024113f
commit 4c21c092ab
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
yesod-core/Yesod/Core.hs
View File

@ -30,6 +30,7 @@ module Yesod.Core
-- * JS loaders -- * JS loaders
, loadJsYepnope , loadJsYepnope
, ScriptLoadPosition (..) , ScriptLoadPosition (..)
, BottomOfHeadAsync
-- * Misc -- * Misc
, yesodVersion , yesodVersion
, yesodRender , yesodRender

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

@ -27,6 +27,7 @@ module Yesod.Internal.Core
, messageLoggerHandler , messageLoggerHandler
-- * jsLoader -- * jsLoader
, ScriptLoadPosition (..) , ScriptLoadPosition (..)
, BottomOfHeadAsync
, loadJsYepnope , loadJsYepnope
-- * Misc -- * Misc
, yesodVersion , yesodVersion
@ -641,11 +642,15 @@ $case jsLoader master
: attrs : attrs
) )
data Yesod master => ScriptLoadPosition master = BottomOfBody | BottomOfHeadBlocking | BottomOfHeadAsync ( data ScriptLoadPosition master
[Text] -- ^ urls to load asynchronously = BottomOfBody
-> Maybe (HtmlUrl (Route master)) -- ^ widget of js to run on async completion | BottomOfHeadBlocking
-> (HtmlUrl (Route master)) -- ^ widget to insert at the bottom of <head> | BottomOfHeadAsync (BottomOfHeadAsync master)
)
type BottomOfHeadAsync master
= [Text] -- ^ urls to load asynchronously
-> Maybe (HtmlUrl (Route master)) -- ^ widget of js to run on async completion
-> (HtmlUrl (Route master)) -- ^ widget to insert at the bottom of <head>
left :: Either a b -> Maybe a left :: Either a b -> Maybe a
left (Left x) = Just x left (Left x) = Just x