From b56e1a0f8e30eaf96952b93239b31d383e8cfb8c Mon Sep 17 00:00:00 2001
From: phischu <pschuster@uni-koblenz.de>
Date: Wed, 28 Jan 2015 18:22:33 +0100
Subject: [PATCH] handle more syntactice constructs in GetBound

---
 src/Language/Haskell/Names/GetBound.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Language/Haskell/Names/GetBound.hs b/src/Language/Haskell/Names/GetBound.hs
index 333e114..6c89407 100644
--- 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