@@ -26,7 +26,7 @@ import Control.Applicative (Applicative(..), (<$>), (<*>))
27import Control.Monad
27import Control.Monad
28import Control.Monad.Error.Class (MonadError(..))
28import Control.Monad.Error.Class (MonadError(..))
29−import Control.Monad.Writer (MonadWriter(..))
29+import Control.Monad.Writer (MonadWriter(..), censor)
31import qualified Data.Map as M
31import qualified Data.Map as M
@@ -47,10 +47,13 @@ import Language.PureScript.Sugar.Names.Exports
48desugarImports :: forall m. (Applicative m, MonadError MultipleErrors m, MonadWriter MultipleErrors m) => [ExternsFile] -> [Module] -> m [Module]
48desugarImports :: forall m. (Applicative m, MonadError MultipleErrors m, MonadWriter MultipleErrors m) => [ExternsFile] -> [Module] -> m [Module]
49desugarImports externs modules = do
49desugarImports externs modules = do
50− env <- foldM externsEnv primEnv externs
50+ env <- silence $ foldM externsEnv primEnv externs
51 env' <- foldM updateEnv env modules
51 env' <- foldM updateEnv env modules
52 mapM (renameInModule' env') modules
52 mapM (renameInModule' env') modules
54+ silence :: m a -> m a
55+ silence = censor (const mempty)
54 -- | Create an environment from a collection of externs files
57 -- | Create an environment from a collection of externs files
55 externsEnv :: Env -> ExternsFile -> m Env
58 externsEnv :: Env -> ExternsFile -> m Env
56 externsEnv env ExternsFile{..} = do
59 externsEnv env ExternsFile{..} = do