remove redundant FamilyD case

This commit is contained in:
Jude Taylor 2016-02-04 11:07:51 -08:00
parent 8ef0f52199
commit e417d095bf

View File

@ -104,9 +104,6 @@ boundNames decl =
TySynD n _ _ -> [(TcClsName, n)]
ClassD _ n _ _ _ -> [(TcClsName, n)]
#if __GLASGOW_HASKELL__ < 800
FamilyD _ n _ _ -> [(TcClsName, n)]
#endif
#if __GLASGOW_HASKELL__ >= 800
DataD _ n _ _ ctors _ ->