@@ -123,10 +123,10 @@ inlineCommonOperators = everywhereTopDown $ applyAll $
123123 , inlineNonClassFunction (isModFn (C.dataFunction, C.apply)) $ \f x -> App Nothing f [x]
124124 , inlineNonClassFunction (isModFn (C.dataFunction, C.applyFlipped)) $ \x f -> App Nothing f [x]
125125 , inlineNonClassFunction (isModFnWithDict (C.dataArray, C.unsafeIndex)) $ flip (Indexer Nothing)
126− ] ++
127− [ fn | i <- [0..10], fn <- [ mkFn i, runFn i ] ] ++
128− [ fn | i <- [0..10], fn <- [ mkEffFn C.controlMonadEffUncurried C.mkEffFn i, runEffFn C.controlMonadEffUncurried C.runEffFn i ] ] ++
129− [ fn | i <- [0..10], fn <- [ mkEffFn C.effectUncurried C.mkEffectFn i, runEffFn C.effectUncurried C.runEffectFn i ] ]
126+ ] -- ++
127+ -- [ fn | i <- [0..10], fn <- [ mkFn i, runFn i ] ] ++
128+ -- [ fn | i <- [0..10], fn <- [ mkEffFn C.controlMonadEffUncurried C.mkEffFn i, runEffFn C.controlMonadEffUncurried C.runEffFn i ] ] ++
129+ -- [ fn | i <- [0..10], fn <- [ mkEffFn C.effectUncurried C.mkEffectFn i, runEffFn C.effectUncurried C.runEffectFn i ] ]
130130 where
131131 binary :: (Text, PSString) -> (Text, PSString) -> BinaryOperator -> AST -> AST
132132 binary dict@(_, d) fns op = convert where