@@ -46,7 +46,10 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
4646 Explicit declrefs -> do
4747 let idents = mapMaybe runDeclRef declrefs
4848 let diff = idents \\ usedNames
49− unless (null diff) $ tell $ errorMessage $ UnusedExplicitImport mni diff
49+ case (length diff, length idents) of
50+ (0, _) -> return ()
51+ (n, m) | n == m -> tell $ errorMessage $ UnusedImport mni
52+ _ -> tell $ errorMessage $ UnusedExplicitImport mni diff
5053 _ -> return ()
5154 where
5255 sugarNames :: ModuleName -> [ Name ]