@@ -1,20 +1,18 @@
1{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings, TypeFamilies, MultiParamTypeClasses #-}
1{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings, TypeFamilies, MultiParamTypeClasses #-}
3−import Data.Text (Text)
4import Language.Elm
3import Language.Elm
5import Language.Elm.Yesod
4import Language.Elm.Yesod
6import Yesod
5import Yesod
7−--import Yesod.Default.Util
8import Text.Hamlet
6import Text.Hamlet
11data ElmTest = ElmTest
8data ElmTest = ElmTest
13-- embedding an external elm file (note: no spaces!)
10-- embedding an external elm file (note: no spaces!)
14−mousePage = [elmFile|elm_source/mouse.elm|]
11+rootPage :: Show a => a -> a -> a -> String
16rootPage mouse clock shapes = [elmFile|elm_source/index.elm|]
12rootPage mouse clock shapes = [elmFile|elm_source/index.elm|]
14+mousePage = [elmFile|elm_source/mouse.elm|]
18clockPage = [elmFile|elm_source/clock.elm|]
16clockPage = [elmFile|elm_source/clock.elm|]
20-- embedding elm code inside Haskell using the QuasiQuoter:
18-- embedding elm code inside Haskell using the QuasiQuoter: