@@ -8,7 +8,7 @@ import Network
88import Control.Monad (forever, mapM_)
99import Control.Monad.Reader (ReaderT, runReaderT, ask, liftIO)
1010import System.IO (Handle, hClose, hGetLine, hPutStr)
11−import System.Directory (doesFileExist)
11+import System.Directory (doesFileExist, doesDirectoryExist)
1212import Control.Concurrent (forkIO)
1313import System.FilePath (takeExtension)
1414import qualified Data.ByteString.Char8 as B
@@ -92,8 +92,9 @@ createGetResponse request = do
9292 -- Construct the complete fileName of the requested resource.
9393 config <- ask
9494 let uri = B.unpack (requestURI request)
95− fileName = (documentRoot config) ++ if uri == "/" then "/index.html"
96− else B.unpack (requestURI request)
95+ isDirectory <- liftIO $ doesDirectoryExist $ documentRoot config ++ uri
96+ let fileName = (documentRoot config) ++ if isDirectory then uri ++ "/index.html"
97+ else uri
9798
9899 -- Send back the page if found.
99100 exists <- liftIO $ doesFileExist fileName