From b68c925b087d4642446766150007434576adb4b0 Mon Sep 17 00:00:00 2001
From: Jan Beinke <git@janbeinke.com>
Date: Mon, 2 Mar 2020 05:30:36 +0100
Subject: [PATCH] Add some tracing debug functions to the prelude
---
src/Prelude.hs | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/src/Prelude.hs b/src/Prelude.hs
index 1b85313..59ea172 100644
--- a/src/Prelude.hs
+++ b/src/Prelude.hs
@@ -23,6 +23,9 @@ module Prelude
traceShowId,
traceM,
traceShowM,
+ traceIO,
+ traceShowIO,
+ traceShowIdIO,
undefined,
)
where
@@ -83,6 +86,18 @@ traceM = Trace.traceM
traceShowM :: (Show a, Applicative m) => a -> m ()
traceShowM = Trace.traceShowM
+{-# DEPRECATED traceIO "Partitial Function." #-}
+traceIO :: Control.Monad.IO.Class.MonadIO m => String -> m ()
+traceIO = Control.Monad.IO.Class.liftIO . Trace.traceIO
+
+{-# DEPRECATED traceShowIO "Partitial Function." #-}
+traceShowIO :: (Control.Monad.IO.Class.MonadIO m, Show a) => a -> m ()
+traceShowIO = traceIO . show
+
+{-# DEPRECATED traceShowIdIO "Partitial Function." #-}
+traceShowIdIO :: (Control.Monad.IO.Class.MonadIO m, Show a) => a -> m a
+traceShowIdIO a = traceShowIO a >> return a
+
intercalate :: Monoid a => a -> [a] -> a
intercalate _ [] = mempty
intercalate _ [x] = x
--
GitLab