aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Application.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Application.hs b/src/Application.hs
index 616532c..efcdbd2 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -36,14 +36,10 @@ app p f = do
juanDeLaCosa :: Pool Connection -> Middleware -> FilePath -> ScottyM ()
juanDeLaCosa p logger dataDir = do
- let
- index_html = dataDir ++ "/" ++ "index.html"
-
middleware logger
middleware $ staticPolicy (hasPrefix "static" >-> addBase dataDir)
- get "/" $ file index_html
- get "/index.html" $ file index_html
+ get "/" $ file (dataDir ++ "/" ++ "index.html")
post "/resetMyPassword" $ apiResetMyPassword p
get "/whoAmI" $ apiWhoAmI p