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