haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated yesod-static sample

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-07 18:14:27 +02:00
parent 205b3bf6b3
commit a835359451
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
yesod-static/sample.hs
View File

@ -9,16 +9,21 @@ import Network.Wai.Application.Static
staticFiles "."
data Sample = Sample
getStatic _ = Static $ defaultFileServerSettings { ssFolder = fileSystemLookup $ toFilePath "tests" }
data Sample = Sample { getStatic :: Static }
--getStatic _ = Static $ defaultFileServerSettings { ssFolder = fileSystemLookup $ toFilePath "." }
mkYesod "Sample" [parseRoutes|
/ RootR GET
/static StaticR Static getStatic
|]
instance Yesod Sample where approot _ = ""
instance Yesod Sample where
approot _ = ""
cleanPath _ = Right -- FIXME make this unnecessary perhaps
getRootR = do
redirectText RedirectPermanent "static"
return ()
main = toWaiApp Sample >>= run 3000
main = do
s <- static "."
toWaiApp (Sample s) >>= run 3000