@@ -33,7 +33,7 @@ import Data.Maybe (catMaybes)
3333import qualified Data.Map as M
3434
3535import Control.Monad (forM, replicateM)
36−import Control.Monad.Reader (MonadReader)
36+import Control.Monad.Reader (MonadReader, ask)
3737import Control.Monad.Supply.Class
3838import Language.PureScript.AST.SourcePos
3939import Language.PureScript.CodeGen.Cpp.AST as AST
@@ -476,7 +476,8 @@ moduleToCpp env (Module _ mn imps _ foreigns decls) = do
476476 valueToCpp (Let _ ds val) = do
477477 ds' <- concat <$> mapM (bindToCpp []) ds
478478 ret <- valueToCpp val
479− let ds'' = tco defaultOptions <$> ds'
479+ opts <- ask
480+ let ds'' = tco opts <$> ds'
480481 let rs = if hasRecursion ds''
481482 then convertRecursiveFns ds''
482483 else ds''