From d5bdaf0c883b9457248a02c1fb6bf1537ea1c896 Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Sat, 9 Apr 2016 14:49:16 -0400
Subject: [PATCH] use in module traceM

---
 src/Debug.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Debug.hs b/src/Debug.hs
index d51815391..5ca28c52e 100644
--- a/src/Debug.hs
+++ b/src/Debug.hs
@@ -32,7 +32,7 @@ traceShow a = T.trace (P.show a) a
 
 {-# WARNING traceShowM "'traceShowM' remains in code" #-}
 traceShowM :: (P.Show a, P.Monad m) => a -> m ()
-traceShowM a = T.traceM (P.show a)
+traceShowM a = traceM (P.show a)
 
 {-# WARNING traceM "'traceM' remains in code" #-}
 traceM :: (P.Monad m) => P.String -> m ()
@@ -44,4 +44,4 @@ traceIO = T.traceIO
 
 {-# WARNING notImplemented "'notImplemented' remains in code" #-}
 notImplemented :: a
-notImplemented = P.error "Not implemented"
+otImplemented = P.error "Not implemented"