@@ -71,7 +71,12 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
7171 typesRefs
7272 = map (flip TypeRef (Just [])) typesWithoutDctors
7373 ++ 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 $
76+ if null allRefs
77+ then UnusedImport mni
78+ else ImplicitImport mni allRefs
79+ Explicit [] -> tell $ errorMessage $ UnusedImport mni
7580 Explicit declrefs -> do
7681 let idents = nub (mapMaybe runDeclRef declrefs)
7782 let diff = idents \\ usedNames