git.iko.soy/elk
on master help sign in
updated runtime URL, added a comment about vars
cb4d4d9Vladimir Bychkovsky
Examples/elm-happstack/Main.hs+3−3
compare with master
unifiedsplit
@@ -6,7 +6,7 @@ import Language.Elm
6import Language.Elm.Quasi
6import Language.Elm.Quasi
7
7
8elmLoc :: String
8elmLoc :: 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"
10
10
11-- elmResponse is a "nice to have" helper function for compiling
11-- elmResponse is a "nice to have" helper function for compiling
12-- Elm code when using Elm with Happstack. At some point this might
12-- Elm code when using Elm with Happstack. At some point this might
@@ -21,7 +21,7 @@ elmResponse title = toResponse . toHtml elmLoc title
21rootHandler :: ServerPart Response
21rootHandler :: ServerPart Response
22rootHandler = ok $ elmResponse "Welcome!" $ elmIndex
22rootHandler = ok $ elmResponse "Welcome!" $ elmIndex
23 where
23 where
24− mouse = "/mouse"
24+ mouse = "/mouse" -- all three of these variables are used in elm_source/index.elm
25 clock = "/clock"
25 clock = "/clock"
26 shapes = "/shapes"
26 shapes = "/shapes"
27 elmIndex = $(elmFile "elm_source/index.elm")
27 elmIndex = $(elmFile "elm_source/index.elm")
@@ -64,4 +64,4 @@ elmExample =
64 ]
64 ]
65
65
66main :: IO ()
66main :: IO ()
67−main = simpleHTTP nullConf {port = 3000} elmExample
67+main = simpleHTTP nullConf {port = 3000} elmExample