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

yepnope/modernizr is included in <head> (#256)

Browse Source
This commit is contained in:
Michael Snoyman 2012-02-07 16:37:02 +02:00
parent 0b6930fc23
commit 3b59c48dbc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -581,7 +581,11 @@ $forall s <- css
<style media=#{media}>#{content}
$nothing
<style>#{content}
$maybe _ <- yepnopeJs master
$maybe eyn <- yepnopeJs master
$maybe yn <- left eyn
<script src=#{yn}>
$maybe yn <- right eyn
<script src=@{yn}>
$nothing
$forall s <- scripts
^{mkScriptTag s}
@ -595,11 +599,7 @@ $nothing
let (mcomplete, ynscripts) = ynHelper render scripts jscript jsLoc
let bodyYN = [HAMLET|
^{body}
$maybe eyn <- yepnopeJs master
$maybe yn <- left eyn
<script src=#{yn}>
$maybe yn <- right eyn
<script src=@{yn}>
$maybe _eyn <- yepnopeJs master
$maybe complete <- mcomplete
<script>yepnope({load:#{ynscripts},complete:function(){^{complete}}})
$nothing