blob: b997d341ba21dcae5859729b790afe2a260e833d (
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
|
{-# LANGUAGE RankNTypes #-}
module Logging where
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString.Char8 as S
import qualified Data.Text.IO as Text
import qualified Data.Text as Text
import qualified Debug.Trace as Debug
debugL :: L.ByteString -> IO ()
debugS :: S.ByteString -> IO ()
debugStr :: String -> IO ()
debugText :: Text.Text -> IO ()
trace :: forall a. String -> a -> a
debugStr str = putStrLn str
debugL bs = L.putStrLn bs
debugS bs = S.putStrLn bs
debugText text = Text.putStrLn text
trace str a = Debug.trace str a
|
