blob: 0254017ed1331a9c54a336631e0fadc50f5d6ed3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{- Copyright 2016 Joey Hess <id@joeyh.name>
-
- Licensed under the GNU AGPL version 3 or higher.
-}
{-# LANGUAGE OverloadedStrings #-}
module HTTP.Logger where
import System.Log.FastLogger
import Data.Monoid
import Prelude
data Logger = Logger TimedFastLogger TimedFastLogger
withLogger :: (Logger -> IO a) -> IO a
withLogger a = do
t <- newTimeCache "%c"
withTimedFastLogger t (LogStdout defaultBufSize) $ \stdout ->
withTimedFastLogger t (LogStderr defaultBufSize) $ \stderr ->
a (Logger stdout stderr)
logStdout :: Logger -> String -> IO ()
logStdout (Logger l _) = sendLogger l
logStderr :: Logger -> String -> IO ()
logStderr (Logger _ l) = sendLogger l
sendLogger :: TimedFastLogger -> String -> IO ()
sendLogger l s = l (\t -> "[" <> toLogStr t <> "] " <> toLogStr s <> "\n")
|