@@ -39,7 +39,7 @@ findUnusedImports (Module _ _ _ mdecls _) env usedImps = do
3939 imps <- findImports mdecls
4040 forM_ (M.toAscList imps) $ \(mni, decls) -> unless (mni `elem` autoIncludes) $
4141 forM_ decls $ \(ss, declType, qualifierName) -> censor (onErrorMessages $ addModuleLocError ss) $
42− let usedNames = mapMaybe (matchName (typeForDCtor mni) qualifierName) $ sugarNames ++ M.findWithDefault [] mni usedImps in
42+ let usedNames = mapMaybe (matchName (typeForDCtor mni) qualifierName) $ sugarNames mni ++ M.findWithDefault [] mni usedImps in
4343 case declType of
4444 Implicit -> when (null usedNames) $ tell $ errorMessage $ UnusedImport mni
4545 Explicit declrefs -> do
@@ -48,8 +48,9 @@ findUnusedImports (Module _ _ _ mdecls _) env usedImps = do
4848 unless (null diff) $ tell $ errorMessage $ UnusedExplicitImport mni diff
4949 _ -> return ()
5050 where
51− sugarNames :: [ Name ]
52− sugarNames = [ IdentName $ Qualified Nothing (Ident C.bind) ]
51+ sugarNames :: ModuleName -> [ Name ]
52+ sugarNames (ModuleName [ProperName n]) | n == C.prelude = [ IdentName $ Qualified Nothing (Ident C.bind) ]
53+ sugarNames _ = []
5354
5455 autoIncludes :: [ ModuleName ]
5556 autoIncludes = [ ModuleName [ProperName C.prim] ]