@@ -55,14 +55,14 @@ import System.FilePath.Posix ((</>))
5555--
5656moduleToJs :: forall m. (Applicative m, Monad m, MonadReader Options m, MonadSupply m)
5757 => Module Ann -> Maybe JS -> m [JS]
58−moduleToJs (Module coms mn imps exps foreigns decls) foreign = do
58+moduleToJs (Module coms mn imps exps foreigns decls) foreign_ = do
5959 jsImports <- T.traverse importToJs . delete (ModuleName [ProperName C.prim]) . (\\ [mn]) $ imps
6060 jsDecls <- mapM bindToJs decls
6161 optimized <- T.traverse (T.traverse optimize) jsDecls
6262 comments <- not <$> asks optionsNoComments
6363 let strict = JSStringLiteral "use strict"
6464 let header = if comments && not (null coms) then JSComment coms strict else strict
65− let foreign' = [JSVariableIntroduction "$foreign" foreign | not $ null foreigns || foreign == Nothing]
65+ let foreign' = [JSVariableIntroduction "$foreign" foreign_ | not $ null foreigns || foreign_ == Nothing]
6666 let moduleBody = header : foreign' ++ jsImports ++ concat optimized
6767 let foreignExps = exps `intersect` (fst `map` foreigns)
6868 let standardExps = exps \\ foreignExps