summaryrefslogtreecommitdiff
path: root/Presence/Logging.hs
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