@@ -6,7 +6,7 @@ import Language.Elm
66import Language.Elm.Quasi
77
88elmLoc :: String
9−elmLoc = "https://raw.github.com/evancz/Elm/master/elm/elm-runtime-0.3.5.js"
9+elmLoc = "https://raw.github.com/evancz/Elm/master/elm/elm-runtime-0.7.1.1.js"
1010
1111-- elmResponse is a "nice to have" helper function for compiling
1212-- Elm code when using Elm with Happstack. At some point this might
@@ -21,7 +21,7 @@ elmResponse title = toResponse . toHtml elmLoc title
2121rootHandler :: ServerPart Response
2222rootHandler = ok $ elmResponse "Welcome!" $ elmIndex
2323 where
24− mouse = "/mouse"
24+ mouse = "/mouse" -- all three of these variables are used in elm_source/index.elm
2525 clock = "/clock"
2626 shapes = "/shapes"
2727 elmIndex = $(elmFile "elm_source/index.elm")
@@ -64,4 +64,4 @@ elmExample =
6464 ]
6565
6666main :: IO ()
67−main = simpleHTTP nullConf {port = 3000} elmExample
67+main = simpleHTTP nullConf {port = 3000} elmExample