diff --git a/Ledger/Utils.hs b/Ledger/Utils.hs
index b903876d4..2c0ebb41a 100644
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@@ -215,8 +215,6 @@ showforest = concatMap showtree
 strace :: Show a => a -> a
 strace a = trace (show a) a
 
-p = putStr
-
 -- testing
 
 assertequal e a = assertEqual "" e a