diff --git a/dead-code-detection.cabal b/dead-code-detection.cabal
--- a/dead-code-detection.cabal
+++ b/dead-code-detection.cabal
@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           dead-code-detection
-version:        0.1.2
+version:        0.2
 synopsis:       detect dead code in haskell projects
 description:    detect dead code in haskell projects
 category:       Development
diff --git a/src/Ast.hs b/src/Ast.hs
--- a/src/Ast.hs
+++ b/src/Ast.hs
@@ -138,8 +138,7 @@
 
 instance NameGraph (HsGroup Name) where
   nameGraph group =
-    nameGraph (hs_valds group) ++
-    map (, []) (boundNames (hs_tyclds group))
+    nameGraph (hs_valds group)
 
 instance NameGraph (HsValBinds Name) where
   nameGraph = \ case
diff --git a/test/AstSpec.hs b/test/AstSpec.hs
--- a/test/AstSpec.hs
+++ b/test/AstSpec.hs
@@ -145,12 +145,12 @@
           parseStringGraph ["Foo.hs"] `shouldReturn`
             Graph [] []
 
-      it "does detect selectors" $ do
+      it "ignores selectors" $ do
         withFooHeader [i|
           data A = A { foo :: () }
         |] $ do
           boundNames <- map fst <$> usageGraph <$> parseStringGraph ["Foo.hs"]
-          boundNames `shouldContain` ["Foo.foo"]
+          boundNames `shouldBe` []
 
       it "does not detect selectors starting with _" $ do
         withFooHeader [i|