diff options
| -rw-r--r-- | src/Application.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Application.hs b/src/Application.hs index d0f9704..899708e 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -41,13 +41,10 @@ app ps f = do myProcess :: Pools -> Middleware -> FilePath -> ScottyM () myProcess ps logger dataDir = do - let - index_html = dataDir ++ "/" ++ "index.html" - middleware logger middleware $ staticPolicy (hasPrefix "static" >-> addBase dataDir) - get "/" $ file index_html + get "/" $ file (dataDir ++ "/" ++ "index.html") get "/serverlist.json" $ json (sort $ HM.keys ps) get "/server/:server/processlist.json" $ apiGetProcessList ps |