diff --git a/src/Debug.hs b/src/Debug.hs
index 647549b11..5e62b884d 100644
--- a/src/Debug.hs
+++ b/src/Debug.hs
@@ -54,7 +54,7 @@ traceShowM a = trace (P.show a) (return ())
 traceM :: (Monad m) => Text -> m ()
 traceM s = trace (unpack s) (return ())
 
-{-# WARNING traceId "'traceM' remains in code" #-}
+{-# WARNING traceId "'traceId' remains in code" #-}
 traceId :: Text -> Text
 traceId s = trace s s