@@ -26,7 +26,7 @@ import Control.Applicative (Applicative(..), (<$>), (<*>))
2626#endif
2727import Control.Monad
2828import Control.Monad.Error.Class (MonadError(..))
29−import Control.Monad.Writer (MonadWriter(..))
29+import Control.Monad.Writer (MonadWriter(..), censor)
3030
3131import qualified Data.Map as M
3232
@@ -47,10 +47,13 @@ import Language.PureScript.Sugar.Names.Exports
4747--
4848desugarImports :: forall m. (Applicative m, MonadError MultipleErrors m, MonadWriter MultipleErrors m) => [ExternsFile] -> [Module] -> m [Module]
4949desugarImports externs modules = do
50− env <- foldM externsEnv primEnv externs
50+ env <- silence $ foldM externsEnv primEnv externs
5151 env' <- foldM updateEnv env modules
5252 mapM (renameInModule' env') modules
5353 where
54+ silence :: m a -> m a
55+ silence = censor (const mempty)
56+
5457 -- | Create an environment from a collection of externs files
5558 externsEnv :: Env -> ExternsFile -> m Env
5659 externsEnv env ExternsFile{..} = do