From ffaa1d6a32682e93207fb96cc127423c1466f057 Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Sun, 26 Feb 2012 15:30:09 -0800
Subject: [PATCH] favor BottomOfBody

---
 yesod-core/Yesod/Internal/Core.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/yesod-core/Yesod/Internal/Core.hs b/yesod-core/Yesod/Internal/Core.hs
index 8aabc737..d48881db 100644
--- a/yesod-core/Yesod/Internal/Core.hs
+++ b/yesod-core/Yesod/Internal/Core.hs
@@ -599,6 +599,7 @@ $maybe j <- jscript
     $nothing
         <script>^{jelper j}
 |]
+
         headAll = [HAMLET|
 \^{head'}
 $forall s <- stylesheets
@@ -615,16 +616,17 @@ $forall s <- css
         $nothing
             <style>#{content}
 $case jsLoader master
+  $of BottomOfBody
   $of BottomOfHeadAsync asyncJsLoader
       ^{asyncJsLoader asyncScripts mcomplete}
   $of BottomOfHeadBlocking
       ^{regularScriptLoad}
-  $of BottomOfBody
 |]
     let bodyScript = [HAMLET|
 ^{body}
 ^{regularScriptLoad}
 |]
+
     return $ PageContent title headAll (case jsLoader master of
       BottomOfBody -> bodyScript
       _ -> body)