pgf-server HTTP mode feature: return the contents of index.html when the URL refers to a directory

1 files changed, 6 insertions, 0 deletions

diff --git a/src/server/ServeStaticFile.hs b/src/server/ServeStaticFile.hs
index f2bbc3e81..748cb870d 100644
--- a/src/server/ServeStaticFile.hs
+++ b/src/server/ServeStaticFile.hs
@@ -1,9 +1,15 @@
 module ServeStaticFile where
 import System.FilePath
+import System.Directory(doesDirectoryExist)
 import Network.CGI(setHeader,outputFPS,liftIO)
 import qualified Data.ByteString.Lazy.Char8 as BS
 
 serveStaticFile path =
+  do b <- liftIO $ doesDirectoryExist path
+     let path' = if b then path </> "index.html" else path
+     serveStaticFile' path'
+
+serveStaticFile' path =
   do setHeader "Content-Type" (contentTypeFromExt (takeExtension path))
      outputFPS =<< liftIO (BS.readFile path)