diff options
Diffstat (limited to 'HTTP/Server.hs')
-rw-r--r-- | HTTP/Server.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/HTTP/Server.hs b/HTTP/Server.hs index c36a6cc..e2165eb 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -35,7 +35,8 @@ data ServerState = ServerState } newServerState :: Maybe LocalStorageDirectory -> ServerConfig -> IO ServerState -newServerState d cfg = withLogger $ \l -> +newServerState d cfg = do + l <- newLogger ServerState <$> newEmptyTMVarIO <*> pure d |