@@ -1,4 +1,4 @@
1−title w = size w 60 . text . header . toText $ "Elm-Yesod"
1+title w = size w 60 . text . header . toText $ "Elm-Happstack"
3lightGrey = rgb 240 241 244
3lightGrey = rgb 240 241 244
4mediumGrey = rgb 216 221 225
4mediumGrey = rgb 216 221 225
@@ -25,12 +25,12 @@ shapesLink = "#{shapes}"
27info w = List.map (\f -> f ()) . List.intersperse (\x -> plainText " ") . List.map ((\e x -> e) . width w) $
27info w = List.map (\f -> f ()) . List.intersperse (\x -> plainText " ") . List.map ((\e x -> e) . width w) $
28− [ section "Written in Elm, served with Yesod"
28+ [ section "Written in Elm, served with Happstack"
29 , text $ toText "This page is written in " ++ Text.link "http://elm-lang.org/" (toText "Elm") ++
29 , text $ toText "This page is written in " ++ Text.link "http://elm-lang.org/" (toText "Elm") ++
30 toText " and served using the " ++
30 toText " and served using the " ++
31− Text.link "http://yesodweb.com/" (toText "Yesod Web Framework") ++
31+ Text.link "http://happstack.com/" (toText "Happstack Web Framework") ++
32 toText ". Since you are looking at this page it is safe to assume that you already have the example code. "
32 toText ". Since you are looking at this page it is safe to assume that you already have the example code. "
33− , text $ toText "Type-safe URLs are rendered using simple QuasiQuoter variable interpolation."
33+ , text $ toText "URLs are rendered using simple QuasiQuoter variable interpolation."
34 , section "More examples:"
34 , section "More examples:"
35 , text $ toText "- " ++ Text.link mouseLink (toText "A simple mouse input example")
35 , text $ toText "- " ++ Text.link mouseLink (toText "A simple mouse input example")
36 , text $ toText "- " ++ Text.link clockLink (toText "An animated analog clock")
36 , text $ toText "- " ++ Text.link clockLink (toText "An animated analog clock")