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] 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' =