rnhmjoj/breve
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Automatically server every static file

Browse Source
This commit is contained in:
rnhmjoj 2015-04-21 17:26:26 +02:00
parent 619bd7f7dd
commit ba784701b4
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Application.hs
View File

@ -24,13 +24,16 @@ app runner = do
ServerSettings {..} <- newServerSettings ServerSettings {..} <- newServerSettings
table <- load urlTable table <- load urlTable
css <- getDataFileName "layouts/main.css" static <- getDataFileName "static/"
index <- getDataFileName "views/index.html" index <- getDataFileName "views/index.html"
done <- getDataFileName "views/done.html" done <- getDataFileName "views/done.html"
runner $ controllerApp settings $ do runner $ controllerApp settings $ do
get "/" (render index ()) get "/" (render index ())
get "/main.css" (serveStatic css)
get "/:file" $ do
file <- queryParam' "file"
serveStatic (static ++ file)
get "/:name" $ do get "/:name" $ do
name <- queryParam' "name" name <- queryParam' "name"

2
src/Breve/Common.hs
View File

@ -26,7 +26,7 @@ data AppSettings = AppSettings {}
instance HasTemplates IO AppSettings where instance HasTemplates IO AppSettings where
defaultLayout = do defaultLayout = do
main <- liftIO (getDataFileName "layouts/main.html") main <- liftIO (getDataFileName "static/main.html")
Just <$> getTemplate main Just <$> getTemplate main