24 lines
534 B
Haskell
24 lines
534 B
Haskell
{-# LANGUAGE QuasiQuotes, TypeFamilies, MultiParamTypeClasses #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
import Yesod.Static
|
|
import Yesod.Dispatch
|
|
import Yesod.Core
|
|
import Network.Wai.Handler.Warp (run)
|
|
|
|
staticFiles "."
|
|
|
|
data Sample = Sample
|
|
getStatic _ = $(embed "tests")
|
|
mkYesod "Sample" [parseRoutes|
|
|
/ RootR GET
|
|
/static StaticR Static getStatic
|
|
|]
|
|
instance Yesod Sample where approot _ = ""
|
|
|
|
getRootR = do
|
|
redirectText RedirectPermanent "static"
|
|
return ()
|
|
|
|
main = toWaiApp Sample >>= run 3000
|