There was an error while loading. Please reload this page.
2 parents eb144ec + 0e0a723 commit 2d01b2bCopy full SHA for 2d01b2b
1 file changed
src/Language/PureScript/Linter/Imports.hs
@@ -71,7 +71,12 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
71
typesRefs
72
= map (flip TypeRef (Just [])) typesWithoutDctors
73
++ map (\(ty, ds) -> TypeRef ty (Just ds)) (M.toList typesWithDctors)
74
- in tell $ errorMessage $ ImplicitImport mni (classRefs ++ typesRefs ++ valueRefs)
+ 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
80
Explicit declrefs -> do
81
let idents = nub (mapMaybe runDeclRef declrefs)
82
let diff = idents \\ usedNames
0 commit comments