reordeded header generation - style sheets before scripts to enable paralell loading

This commit is contained in:
alios 2011-06-14 12:51:08 +02:00
parent 4bd89a5e10
commit 31aa86b84c

View File

@ -531,8 +531,6 @@ widgetToPageContent (GWidget w) = do
#else
[$hamlet|
#endif
$forall s <- scripts
^{mkScriptTag s}
$forall s <- stylesheets
^{mkLinkTag s}
$forall s <- css
@ -546,6 +544,8 @@ $forall s <- css
<style media=#{media}>#{content}
$nothing
<style>#{content}
$forall s <- scripts
^{mkScriptTag s}
$maybe j <- jscript
$maybe s <- jsLoc
<script src="#{s}">