diff --git a/ghc/compiler/typecheck/TcDeriv.lhs b/ghc/compiler/typecheck/TcDeriv.lhs
index 4d2ee6a6acbfe74c1f8f714c487073bcd1f892b9..7d667e3872694c3387d49c3f6dc24a312925664a 100644
--- a/ghc/compiler/typecheck/TcDeriv.lhs
+++ b/ghc/compiler/typecheck/TcDeriv.lhs
@@ -39,7 +39,7 @@ import RnMonad		( SYN_IE(RnM), RnDown, GDown, SDown, RnNameSupply(..),
 
 import Bag		( Bag, isEmptyBag, unionBags, listToBag )
 import Class		( classKey, GenClass, SYN_IE(Class) )
-import ErrUtils		( pprBagOfErrors, addErrLoc, SYN_IE(Error) )
+import ErrUtils		( addErrLoc, SYN_IE(Error) )
 import Id		( dataConArgTys, isNullaryDataCon, mkDictFunId )
 import PrelInfo		( needsDataDeclCtxtClassKeys )
 import Maybes		( maybeToBool )