module RIO.Prelude.Trace
(
trace
, traceId
, traceIO
, traceM
, traceEvent
, traceEventIO
, traceMarker
, traceMarkerIO
, traceStack
, traceShow
, traceShowId
, traceShowIO
, traceShowM
, traceShowEvent
, traceShowEventIO
, traceShowMarker
, traceShowMarkerIO
, traceShowStack
, traceDisplay
, traceDisplayId
, traceDisplayIO
, traceDisplayM
, traceDisplayEvent
, traceDisplayEventIO
, traceDisplayMarker
, traceDisplayMarkerIO
, traceDisplayStack
) where
import qualified Debug.Trace as Trace
import Control.Monad.IO.Class(MonadIO(..))
import RIO.Prelude.Display
import RIO.Text (Text)
import qualified RIO.Text as Text
trace :: Text -> a -> a
trace = Trace.trace . Text.unpack
traceId :: Text -> Text
traceId str = Trace.trace (Text.unpack str) str
traceIO :: MonadIO m => Text -> m ()
traceIO = liftIO . Trace.traceIO . Text.unpack
traceM :: Applicative f => Text -> f ()
traceM = Trace.traceM . Text.unpack
traceEvent :: Text -> a -> a
traceEvent = Trace.traceEvent . Text.unpack
traceEventIO :: MonadIO m => Text -> m ()
traceEventIO = liftIO . Trace.traceEventIO . Text.unpack
traceMarker :: Text -> a -> a
traceMarker = Trace.traceMarker . Text.unpack
traceMarkerIO :: MonadIO m => Text -> m ()
traceMarkerIO = liftIO . Trace.traceMarkerIO . Text.unpack
traceStack :: Text -> a -> a
traceStack = Trace.traceStack . Text.unpack
traceShow :: Show a => a -> b -> b
traceShow = Trace.traceShow
traceShowId :: Show a => a -> a
traceShowId = Trace.traceShowId
traceShowIO :: (Show a, MonadIO m) => a -> m ()
traceShowIO = liftIO . Trace.traceIO . show
traceShowM :: (Show a, Applicative f) => a -> f ()
traceShowM = Trace.traceM . show
traceShowEvent :: Show a => a -> b -> b
traceShowEvent = Trace.traceEvent . show
traceShowEventIO :: (Show a, MonadIO m) => a -> m ()
traceShowEventIO = liftIO . Trace.traceEventIO . show
traceShowMarker :: Show a => a -> b -> b
traceShowMarker = Trace.traceMarker . show
traceShowMarkerIO :: (Show a, MonadIO m) => a -> m ()
traceShowMarkerIO = liftIO . Trace.traceMarkerIO . show
traceShowStack :: Show a => a -> b -> b
traceShowStack = Trace.traceStack . show
traceDisplay :: Display a => a -> b -> b
traceDisplay = trace . utf8BuilderToText . display
traceDisplayId :: Display a => a -> a
traceDisplayId x = traceDisplay x x
traceDisplayIO :: (Display a, MonadIO m) => a -> m ()
traceDisplayIO = traceIO . utf8BuilderToText . display
traceDisplayM :: (Display a, Applicative f) => a -> f ()
traceDisplayM = traceM . utf8BuilderToText . display
traceDisplayEvent :: Display a => a -> b -> b
traceDisplayEvent = traceEvent . utf8BuilderToText . display
traceDisplayEventIO :: (Display a, MonadIO m) => a -> m ()
traceDisplayEventIO = traceEventIO . utf8BuilderToText . display
traceDisplayMarker :: Display a => a -> b -> b
traceDisplayMarker = traceMarker . utf8BuilderToText . display
traceDisplayMarkerIO :: (Display a, MonadIO m) => a -> m ()
traceDisplayMarkerIO = traceMarkerIO . utf8BuilderToText . display
traceDisplayStack :: Display a => a -> b -> b
traceDisplayStack = traceStack . utf8BuilderToText . display