handle more syntactice constructs in GetBound

haskell-suite · Jan 28, 2015 · b56e1a0 · b56e1a0
1 parent d1c21a6
commit b56e1a0
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Language/Haskell/Names/GetBound.hs b/src/Language/Haskell/Names/GetBound.hs
@@ -39,6 +39,7 @@ instance (Data l) => GetBound (Decl l) l where
     getBound ctx e = case e of
       TypeDecl{} -> []
       TypeFamDecl{} -> []
+      ClosedTypeFamDecl{} -> []
       DataDecl _ _ _ _ ds _ -> getBound ctx ds
       GDataDecl _ _ _ _ _ ds _ -> getBound ctx ds
       DataFamDecl{} -> []
@@ -67,6 +68,7 @@ instance (Data l) => GetBound (Decl l) l where
       InstSig{} -> []
       AnnPragma{} -> []
       InlineConlikeSig{} -> []
+      MinimalPragma{} -> []
 
 instance (Data l) => GetBound (QualConDecl l) l where
     getBound ctx (QualConDecl _ _ _ d) = getBound ctx d
@@ -97,6 +99,7 @@ instance (Data l) => GetBound (ClassDecl l) l where
       ClsDataFam{} -> []
       ClsTyFam{} -> []
       ClsTyDef{} -> []
+      ClsDefSig{} -> []
 
 instance (Data l) => GetBound (Match l) l where
     getBound _ctx e = case e of