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

favor BottomOfBody

Browse Source
This commit is contained in:
Greg Weber 2012-02-26 15:30:09 -08:00
parent a569c7f960
commit ffaa1d6a32
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -599,6 +599,7 @@ $maybe j <- jscript
$nothing $nothing
<script>^{jelper j} <script>^{jelper j}
|] |]
headAll = [HAMLET| headAll = [HAMLET|
\^{head'} \^{head'}
$forall s <- stylesheets $forall s <- stylesheets
@ -615,16 +616,17 @@ $forall s <- css
$nothing $nothing
<style>#{content} <style>#{content}
$case jsLoader master $case jsLoader master
$of BottomOfBody
$of BottomOfHeadAsync asyncJsLoader $of BottomOfHeadAsync asyncJsLoader
^{asyncJsLoader asyncScripts mcomplete} ^{asyncJsLoader asyncScripts mcomplete}
$of BottomOfHeadBlocking $of BottomOfHeadBlocking
^{regularScriptLoad} ^{regularScriptLoad}
$of BottomOfBody
|] |]
let bodyScript = [HAMLET| let bodyScript = [HAMLET|
^{body} ^{body}
^{regularScriptLoad} ^{regularScriptLoad}
|] |]
return $ PageContent title headAll (case jsLoader master of return $ PageContent title headAll (case jsLoader master of
BottomOfBody -> bodyScript BottomOfBody -> bodyScript
_ -> body) _ -> body)