links.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
import Yesod

data Links = Links

mkYesod "Links" [parseRoutes|
/      HomeR  GET
/page1 Page1R GET
/page2 Page2R GET
|]

instance Yesod Links

getHomeR  = defaultLayout [whamlet|<a href=@{Page1R}>Go to the page 1|]
getPage1R = defaultLayout [whamlet|<a href=@{Page2R}>Go to the page 2|]
getPage2R = defaultLayout [whamlet|<a href=@{HomeR}>Go to the home|]

main = warp 3000 Links