@@ -84,7 +84,7 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
8484 forM_ (mapMaybe getTypeRef declrefs) $ \(tn, c) -> do
8585 let allCtors = dctorsForType mni tn
8686 when (runProperName tn `elem` usedNames) $ case (c, usedDctors `intersect` allCtors) of
87− (_, []) ->
87+ (_, []) | c /= Just [] ->
8888 tell $ errorMessage $ UnusedDctorImport tn
8989 (Nothing, usedDctors') ->
9090 tell $ errorMessage $ ImplicitDctorImport tn usedDctors'