From 2b6f15ec6c1cca5c55ab73de82fb0badf42f357c Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 19 Jun 2016 01:07:56 +0800
Subject: Do not serve /index.html

---
 src/Application.hs | 6 +-----
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3