diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,11 @@
 Changes
 =======
 
+Version 0.5.2
+-------------
+
+* Handle more syntactic constructs
+
 Version 0.5.1
 -------------
 
diff --git a/haskell-names.cabal b/haskell-names.cabal
--- a/haskell-names.cabal
+++ b/haskell-names.cabal
@@ -1,5 +1,5 @@
 Name:                   haskell-names
-Version:                0.5.1
+Version:                0.5.2
 License:                BSD3
 Author:                 Philipp Schuster, Roman Cheplyaka, Lennart Augustsson
 Maintainer:             Philipp Schuster
diff --git a/src/Language/Haskell/Names/GetBound.hs b/src/Language/Haskell/Names/GetBound.hs
--- a/src/Language/Haskell/Names/GetBound.hs
+++ b/src/Language/Haskell/Names/GetBound.hs
@@ -39,6 +39,7 @@
     getBound ctx e = case e of
       TypeDecl{} -> []
       TypeFamDecl{} -> []
+      ClosedTypeFamDecl{} -> []
       DataDecl _ _ _ _ ds _ -> getBound ctx ds
       GDataDecl _ _ _ _ _ ds _ -> getBound ctx ds
       DataFamDecl{} -> []
@@ -67,6 +68,7 @@
       InstSig{} -> []
       AnnPragma{} -> []
       InlineConlikeSig{} -> []
+      MinimalPragma{} -> []
 
 instance (Data l) => GetBound (QualConDecl l) l where
     getBound ctx (QualConDecl _ _ _ d) = getBound ctx d
@@ -97,6 +99,7 @@
       ClsDataFam{} -> []
       ClsTyFam{} -> []
       ClsTyDef{} -> []
+      ClsDefSig{} -> []
 
 instance (Data l) => GetBound (Match l) l where
     getBound _ctx e = case e of