@@ -38,7 +38,7 @@ mkYesod "ElmTest" [parseRoutes|
38-- so that toWidget can work with QuasiQuoted elm code. All URL interpolation
38-- so that toWidget can work with QuasiQuoted elm code. All URL interpolation
39-- is done automatically. (e.g. lines 28-30 in elm_source/index.elm)
39-- is done automatically. (e.g. lines 28-30 in elm_source/index.elm)
40getMouseR :: Handler RepHtml
40getMouseR :: Handler RepHtml
41−getMouseR =
41+getMouseR =
42 defaultLayout $ do
42 defaultLayout $ do
43 setTitle "Mouse position demo"
43 setTitle "Mouse position demo"
44 toWidget mousePage
44 toWidget mousePage
@@ -75,7 +75,7 @@ instance Yesod ElmTest where
75 hamletToRepHtml $(hamletFile "templates/default-layout-wrapper.hamlet")
75 hamletToRepHtml $(hamletFile "templates/default-layout-wrapper.hamlet")
77instance YesodElm ElmTest where
77instance YesodElm ElmTest where
78− urlElmJs _ = Right $ "https://raw.github.com/evancz/Elm/master/elm/elm-runtime-0.3.5.js"
78+ urlElmJs _ = Right $ "https://raw.github.com/evancz/Elm/master/elm/elm-runtime-0.7.2.js"
80main :: IO ()
80main :: IO ()
81main = warpDebug 3000 ElmTest
81main = warpDebug 3000 ElmTest