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
, loadJsYepnope
, ScriptLoadPosition (..)
, BottomOfHeadAsync
-- * Misc
, yesodVersion
, yesodRender

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

@ -27,6 +27,7 @@ module Yesod.Internal.Core
, messageLoggerHandler
-- * jsLoader
, ScriptLoadPosition (..)
, BottomOfHeadAsync
, loadJsYepnope
-- * Misc
, yesodVersion
@ -641,11 +642,15 @@ $case jsLoader master
: attrs
)
data Yesod master => ScriptLoadPosition master = BottomOfBody | BottomOfHeadBlocking | BottomOfHeadAsync (
[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>
)
data ScriptLoadPosition master
= BottomOfBody
| BottomOfHeadBlocking
| 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 (Left x) = Just x