Merge pull request #5 from alios/master

Reorder of HTML Header generation
This commit is contained in:
Michael Snoyman 2011-06-14 06:55:29 -07:00
commit c41e714cb1

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}">