{-# 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