@@ -58,7 +58,7 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
5858 forM_ (M.toAscList imps) $ \(mni, decls) -> unless (mni `elem` alwaysUsedModules) $
5959 forM_ decls $ \(ss, declType, qualifierName) ->
6060 censor (onErrorMessages $ addModuleLocError ss) $ unless (qnameUsed qualifierName) $
61− let names = nub $ sugarNames mni ++ M.findWithDefault [] mni usedImps
61+ let names = nub $ M.findWithDefault [] mni usedImps
6262 usedNames = mapMaybe (matchName (typeForDCtor mni) qualifierName) names
6363 usedDctors = mapMaybe (matchDctor qualifierName) names
6464 in case declType of
@@ -95,10 +95,6 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
9595
9696 _ -> return ()
9797 where
98− sugarNames :: ModuleName -> [ Name ]
99− sugarNames (ModuleName [ProperName n]) | n == C.prelude = [ IdentName $ Qualified Nothing (Ident C.bind) ]
100− sugarNames _ = []
101−
10298 reconstructTypeRefs :: ModuleName -> [ProperName] -> M.Map ProperName [ProperName]
10399 reconstructTypeRefs mni = foldr accumDctors M.empty
104100 where