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