diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index 9bbbaa8ec92241a0f35450d3c6af5d447089fdd9..81435a6ebff19a5c4ebf033f9b43f23d2c1acb54 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -77,7 +77,8 @@ tyThingToLHsDecl t = noLoc $ case t of
 -- class associated-types are a subset of TyCon
 -- (mainly only type/data-families)
 synifyClassAT :: ClassATItem -> (LTyClDecl Name, [LTyClDecl Name])
-synifyClassAT (tc, mb_defs) = (noLoc (synifyTyCon tc), maybe [] (map synifyATDefault) mb_defs)
+synifyClassAT (tc, _mb_defs) = (noLoc (synifyTyCon tc), [])
+  -- ignore the mb_defs since we ignore default methods
 
 synifyATDefault :: TyCon -> LTyClDecl Name
 synifyATDefault tc = noLoc (synifyAxiom ax)