diff options
| -rw-r--r-- | src/Application.hs | 6 |
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 |