From c7e692bccf021a9ce043016f055bae3b3d498a5a Mon Sep 17 00:00:00 2001
From: Jan Beinke <git@janbeinke.com>
Date: Fri, 14 Feb 2020 11:24:06 +0100
Subject: [PATCH] Add some more debug functions to the prelude
---
src/Prelude.hs | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/src/Prelude.hs b/src/Prelude.hs
index 1c06223..945d807 100644
--- a/src/Prelude.hs
+++ b/src/Prelude.hs
@@ -12,6 +12,8 @@ module Prelude
traceId,
traceShow,
traceShowId,
+ traceM,
+ traceShowM,
Maybe.listToMaybe,
intercalate
)
@@ -62,6 +64,13 @@ traceShow = Trace.traceShow
traceShowId :: Show a => a -> a
traceShowId = Trace.traceShowId
+{-# DEPRECATED traceM "Partitial Function." #-}
+traceM :: Applicative m => String -> m ()
+traceM = Trace.traceM
+
+{-# DEPRECATED traceShowM "Partitial Function." #-}
+traceShowM :: (Show a, Applicative m) => a -> m ()
+traceShowM = Trace.traceShowM
intercalate :: Monoid a => a -> [a] -> a
intercalate _ [] = mempty
--
GitLab