From cec6f42a99b7101a8e6e21915420d90419c80ba8 Mon Sep 17 00:00:00 2001
From: Casey Allred <sbditto85@gmail.com>
Date: Fri, 25 Nov 2016 21:36:51 -0700
Subject: [PATCH 1/2] added jsAttributes for the script tag generated by julius
 files

---
 yesod-core/Yesod/Core/Class/Yesod.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/yesod-core/Yesod/Core/Class/Yesod.hs b/yesod-core/Yesod/Core/Class/Yesod.hs
index a8e7ecb2..8fa41d08 100644
--- a/yesod-core/Yesod/Core/Class/Yesod.hs
+++ b/yesod-core/Yesod/Core/Class/Yesod.hs
@@ -254,6 +254,11 @@ class RenderRoute site => Yesod site where
     jsLoader :: site -> ScriptLoadPosition site
     jsLoader _ = BottomOfBody
 
+    -- | Default attributes to put on the JavaScript <script> tag
+    -- generated for julius files
+    jsAttributes :: site -> [(Text, Text)]
+    jsAttributes _ = []
+
     -- | Create a session backend. Returning 'Nothing' disables
     -- sessions. If you'd like to change the way that the session
     -- cookies are created, take a look at
@@ -570,7 +575,7 @@ widgetToPageContent w = do
                 ^{mkScriptTag s}
             $maybe j <- jscript
                 $maybe s <- jsLoc
-                    <script src="#{s}">
+                    ^{mkDefaultScriptTag s (jsAttributes master)}
                 $nothing
                     <script>^{jelper j}
         |]
@@ -613,6 +618,8 @@ widgetToPageContent w = do
     renderLoc' _ (Remote s) = s
 
     addAttr x (y, z) = x ! customAttribute (textTag y) (toValue z)
+    mkDefaultScriptTag sUrl attrs _ =
+        foldl' addAttr TBH.script (("src", sUrl) : attrs) $ return ()
     mkScriptTag (Script loc attrs) render' =
         foldl' addAttr TBH.script (("src", renderLoc' render' loc) : attrs) $ return ()
     mkLinkTag (Stylesheet loc attrs) render' =

From 9458e57a58de46ef1463cb61c15c8a05b851b74c Mon Sep 17 00:00:00 2001
From: Casey Allred <sbditto85@gmail.com>
Date: Sat, 26 Nov 2016 12:07:49 -0700
Subject: [PATCH 2/2] adjusted to use *{..} syntax

---
 yesod-core/Yesod/Core/Class/Yesod.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/yesod-core/Yesod/Core/Class/Yesod.hs b/yesod-core/Yesod/Core/Class/Yesod.hs
index 8fa41d08..91b0fa95 100644
--- a/yesod-core/Yesod/Core/Class/Yesod.hs
+++ b/yesod-core/Yesod/Core/Class/Yesod.hs
@@ -575,7 +575,7 @@ widgetToPageContent w = do
                 ^{mkScriptTag s}
             $maybe j <- jscript
                 $maybe s <- jsLoc
-                    ^{mkDefaultScriptTag s (jsAttributes master)}
+                    <script src="#{s}" *{jsAttributes master}>
                 $nothing
                     <script>^{jelper j}
         |]
@@ -618,8 +618,6 @@ widgetToPageContent w = do
     renderLoc' _ (Remote s) = s
 
     addAttr x (y, z) = x ! customAttribute (textTag y) (toValue z)
-    mkDefaultScriptTag sUrl attrs _ =
-        foldl' addAttr TBH.script (("src", sUrl) : attrs) $ return ()
     mkScriptTag (Script loc attrs) render' =
         foldl' addAttr TBH.script (("src", renderLoc' render' loc) : attrs) $ return ()
     mkLinkTag (Stylesheet loc attrs) render' =