thereadme/serverman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix(webserver): directory must be absolute

Browse Source
This commit is contained in:
Mahdi Dibaiee 2017-02-22 12:58:34 +03:30
parent 9e8cc30744
commit bff0c6230b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/System/Term.hs
View File

@ -8,6 +8,7 @@ module System.Term ( initialize ) where
import System.Console.CmdArgs import System.Console.CmdArgs
import qualified System.Console.CmdArgs.Explicit as E import qualified System.Console.CmdArgs.Explicit as E
import System.Environment import System.Environment
import System.Directory
import Data.Monoid import Data.Monoid
import Data.Maybe import Data.Maybe
@ -83,7 +84,9 @@ module System.Term ( initialize ) where
| ssl = "403" | ssl = "403"
| otherwise = "80" | otherwise = "80"
let params = S.ServerParams { S.directory = directory absoluteDirectory <- makeAbsolute directory
let params = S.ServerParams { S.directory = absoluteDirectory
, S.domain = domain , S.domain = domain
, S.port = portNumber , S.port = portNumber
, S.ssl = ssl , S.ssl = ssl