blob: 2758c37aedd973c3e61d6e975c0bd04045b7b5c0 (
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
|
{- Copyright 2016 Joey Hess <id@joeyh.name>
-
- Licensed under the GNU AGPL version 3 or higher.
-}
module HTTP.Logger where
import System.Log.FastLogger
import Data.String
data Logger = Logger LoggerSet LoggerSet
newLogger :: IO Logger
newLogger = Logger
<$> newStdoutLoggerSet defaultBufSize
<*> newStderrLoggerSet defaultBufSize
logStdout :: Logger -> String -> IO ()
logStdout (Logger l _) = sendLogger l
logStderr :: Logger -> String -> IO ()
logStderr (Logger _ l) = sendLogger l
sendLogger :: LoggerSet -> String -> IO ()
sendLogger l s = pushLogStrLn l (fromString s)
|