@@ -16,14 +16,13 @@ module Language.PureScript.Sugar.Names (
1616 desugarImports
1717) where
1818
19−import Data.Maybe (fromMaybe, isJust, fromJust)
20−import Data.List (intersect, intercalate, (\\))
19+import Data.Maybe (fromMaybe)
2120import Data.Data
2221import Data.Generics (extM, mkM, everywhereM)
2322import Data.Generics.Extras (mkS, extS, everywhereWithContextM')
2423
2524import Control.Applicative (Applicative(..), (<$>), (<*>))
26−import Control.Monad (forM_, unless, foldM)
25+import Control.Monad (foldM)
2726import Control.Monad.Error
2827
2928import qualified Data.Map as M