Hi Max,<div><br></div><div>I have:</div><div><br></div><div><div>instance YesodJquery APPNAME where</div><div> urlJqueryJs _ = Left $ StaticR js_jquery_1_4_4_min_js</div><div> urlJqueryUiJs _ = Left $ StaticR js_jquery_ui_1_8_6_custom_min_js</div>
<div> urlJqueryUiCss _ = Left $ StaticR css_jquery_ui_1_8_6_custom_css</div></div><div><br></div><div><div>instance Yesod APPNAME where</div><div> defaultLayout widget = do</div><div> mmsg <- getMessage</div><div>
y <- getYesod</div><div> pc <- widgetToPageContent $ do</div><div> addWidget widget</div><div> addScriptEither $ urlJqueryJs y</div><div> addScriptEither $ urlJqueryUiJs y</div><div> addStylesheetEither $ urlJqueryUiCss y</div>
</div><div><br></div><div><br></div><div><div>!!!</div><div>%html</div><div> %head</div><div> ^pageHead.pc^</div></div><div> ...</div><div><br></div><div><br></div><div>This kind of system should fix your problems. This does seem like unnecessary boiler plate though.</div>
<div><br></div><div>Greg Weber</div>