From bff0c6230b2af9a779dae79e6b3b8b3044887098 Mon Sep 17 00:00:00 2001 From: Mahdi Dibaiee Date: Wed, 22 Feb 2017 12:58:34 +0330 Subject: [PATCH] fix(webserver): directory must be absolute --- src/System/Term.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/System/Term.hs b/src/System/Term.hs index 5c5de83..ed0e103 100644 --- a/src/System/Term.hs +++ b/src/System/Term.hs @@ -8,6 +8,7 @@ module System.Term ( initialize ) where import System.Console.CmdArgs import qualified System.Console.CmdArgs.Explicit as E import System.Environment + import System.Directory import Data.Monoid import Data.Maybe @@ -83,7 +84,9 @@ module System.Term ( initialize ) where | ssl = "403" | otherwise = "80" - let params = S.ServerParams { S.directory = directory + absoluteDirectory <- makeAbsolute directory + + let params = S.ServerParams { S.directory = absoluteDirectory , S.domain = domain , S.port = portNumber , S.ssl = ssl