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

Use shorter names

Browse Source
This commit is contained in:
rnhmjoj 2015-04-10 22:28:34 +02:00
parent 1a125265ab
commit bded0fb6bd
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Application.hs
View File

@ -25,13 +25,13 @@ app runner = do
(baseUrl,_) <- serverSettings
table <- records
cssPath <- getDataFileName "layouts/main.css"
indexPath <- getDataFileName "views/index.html"
donePath <- getDataFileName "views/done.html"
css <- getDataFileName "layouts/main.css"
index <- getDataFileName "views/index.html"
done <- getDataFileName "views/done.html"
runner $ controllerApp settings $ do
get "/" (render indexPath ())
get "/main.css" (serveStatic cssPath)
get "/" (render index ())
get "/main.css" (serveStatic css)
get "/:word" $ do
word <- queryParam' "word"
@ -48,5 +48,5 @@ app runner = do
Just url -> do
word <- liftIO (insert table url)
logStr (printf "Registered %s -> %s " url word)
render donePath $ object ["link" .= (baseUrl ++ word)]
render done $ object ["link" .= (bindUrl ++ word)]
Nothing -> respond badRequest