d47227d · hakyll · git.iko.soy

git.iko.soy/hakyll

Made document root configurable.

commitd47227ddbb3cc312691a62b8733d31105b21c8d9 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateSun 27 Dec 2009, 20:33 (17 years ago) parent849b49a

2 files changed+6−5

compare with master

unifiedsplit

src/Network/Hakyll/SimpleServer.hs+5−4 src/Text/Hakyll.hs+1−1

src/Network/Hakyll/SimpleServer.hs+5−4

@@ -159,14 +159,15 @@ respond handle = do

159159 putHeader (key, value) = B.hPutStr handle $ key `B.append` B.pack ": "

160160 `B.append` value `B.append` B.pack "\r\n"

161161

162−-- | Start a simple http server on the given 'PortNumber'.

163−simpleServer :: PortNumber -> IO ()

164−simpleServer port = do

162+-- | Start a simple http server on the given 'PortNumber', serving the given

163+-- directory.

164+simpleServer :: PortNumber -> FilePath -> IO ()

165+simpleServer port root = do

165166 putStrLn $ "Starting hakyll server on port " ++ show port ++ "..."

166167 socket <- listenOn (PortNumber port)

167168 forever (listen socket)

168169 where -- A default configuration.

169− config = ServerConfig { documentRoot = "_site"

170+ config = ServerConfig { documentRoot = root

170171 , portNumber = port

171172 }

172173

src/Text/Hakyll.hs+1−1

@@ -45,4 +45,4 @@ help = do

4545 ++ name ++ " server [port] Run a local test server.\n"

4646

4747server :: Integer -> IO ()

48−server p = do simpleServer (fromIntegral $ p)

48+server p = do simpleServer (fromIntegral $ p) "_site"