mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* port 80

Browse source
This commit is contained in:
Vincent Ambo 2012-03-15 20:19:25 +01:00
parent 579c11cd2a
commit cc1bf63468
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -41,7 +41,7 @@ main = do
tbDir <- getEnv "TAZBLOG"
bracket (openLocalStateFrom (tbDir ++ "/BlogState") initialBlogState)
(createCheckpointAndClose)
(\acid -> simpleHTTP nullConf $ tazBlog acid)
(\acid -> simpleHTTP nullConf {port = 80} $ tazBlog acid)
tazBlog :: AcidState Blog -> ServerPart Response
tazBlog acid =