@@ -71,7 +71,12 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
72 = map (flip TypeRef (Just [])) typesWithoutDctors
72 = map (flip TypeRef (Just [])) typesWithoutDctors
73 ++ map (\(ty, ds) -> TypeRef ty (Just ds)) (M.toList typesWithDctors)
73 ++ map (\(ty, ds) -> TypeRef ty (Just ds)) (M.toList typesWithDctors)
74− in tell $ errorMessage $ ImplicitImport mni (classRefs ++ typesRefs ++ valueRefs)
74+ allRefs = classRefs ++ typesRefs ++ valueRefs
75+ in tell $ errorMessage $
77+ then UnusedImport mni
78+ else ImplicitImport mni allRefs
79+ Explicit [] -> tell $ errorMessage $ UnusedImport mni
75 Explicit declrefs -> do
80 Explicit declrefs -> do
76 let idents = nub (mapMaybe runDeclRef declrefs)
81 let idents = nub (mapMaybe runDeclRef declrefs)
77 let diff = idents \\ usedNames
82 let diff = idents \\ usedNames