Made document root configurable.
This commit is contained in:
parent
849b49aa53
commit
d47227ddbb
2 changed files with 6 additions and 5 deletions
|
@ -159,14 +159,15 @@ respond handle = do
|
|||
putHeader (key, value) = B.hPutStr handle $ key `B.append` B.pack ": "
|
||||
`B.append` value `B.append` B.pack "\r\n"
|
||||
|
||||
-- | Start a simple http server on the given 'PortNumber'.
|
||||
simpleServer :: PortNumber -> IO ()
|
||||
simpleServer port = do
|
||||
-- | Start a simple http server on the given 'PortNumber', serving the given
|
||||
-- directory.
|
||||
simpleServer :: PortNumber -> FilePath -> IO ()
|
||||
simpleServer port root = do
|
||||
putStrLn $ "Starting hakyll server on port " ++ show port ++ "..."
|
||||
socket <- listenOn (PortNumber port)
|
||||
forever (listen socket)
|
||||
where -- A default configuration.
|
||||
config = ServerConfig { documentRoot = "_site"
|
||||
config = ServerConfig { documentRoot = root
|
||||
, portNumber = port
|
||||
}
|
||||
|
||||
|
|
|
@ -45,4 +45,4 @@ help = do
|
|||
++ name ++ " server [port] Run a local test server.\n"
|
||||
|
||||
server :: Integer -> IO ()
|
||||
server p = do simpleServer (fromIntegral $ p)
|
||||
server p = do simpleServer (fromIntegral $ p) "_site"
|
||||
|
|
Loading…
Reference in a new issue