Yesod routing with QuasiQuotes

hello-no-qq.hs

{-# LANGUAGE TypeFamilies, MultiParamTypeClasses,
             TemplateHaskell, OverloadedStrings #-}
import Yesod
import Yesod.Routes.TH

data HelloWorld = HelloWorld

mkYesod "HelloWorld"
    [ ResourceLeaf Resource
        { resourceName = "HomeR"
        , resourcePieces = []
        , resourceDispatch = Methods Nothing ["GET"]
        }
    , ResourceLeaf Resource
        { resourceName = "FibR"
        , resourcePieces =
            [ (True, Static "fib")
            , (True, Dynamic "Int")
            ]
        , resourceDispatch = Methods Nothing ["GET"]
        }
    ]

instance Yesod HelloWorld

getHomeR :: Handler RepHtml
getHomeR = defaultLayout $ toWidget $ const ("Hello World" :: Html)

fibs :: [Int]
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

getFibR :: Int -> Handler RepHtml
getFibR i = defaultLayout $ toWidget $ const $ toHtml $ fibs !! i

main :: IO ()
main = warpDebug 3000 HelloWorld