diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-09-13 17:52:07 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-09-13 17:52:07 -0400 |
commit | 0f0aa21ea11f6eae368326b178d4c3eaf5cc5186 (patch) | |
tree | 24e52fd9b6d054e85553df5cadfdc4fc5d5df83b /HTTP/Server.hs | |
parent | 86cb38c936da30910700c58353a5e716fa94e83c (diff) | |
download | keysafe-0f0aa21ea11f6eae368326b178d4c3eaf5cc5186.tar.gz |
add date to logger
Diffstat (limited to 'HTTP/Server.hs')
-rw-r--r-- | HTTP/Server.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/HTTP/Server.hs b/HTTP/Server.hs index e2165eb..c36a6cc 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -35,8 +35,7 @@ data ServerState = ServerState } newServerState :: Maybe LocalStorageDirectory -> ServerConfig -> IO ServerState -newServerState d cfg = do - l <- newLogger +newServerState d cfg = withLogger $ \l -> ServerState <$> newEmptyTMVarIO <*> pure d |