@@ -78,7 +78,7 @@ optimize' js = do
78 , inlineValues
78 , inlineValues
79 , inlineOperator (C.prelude, (C.$)) $ \f x -> JSApp f [x]
79 , inlineOperator (C.prelude, (C.$)) $ \f x -> JSApp f [x]
80 , inlineOperator (C.prelude, (C.#)) $ \x f -> JSApp f [x]
80 , inlineOperator (C.prelude, (C.#)) $ \x f -> JSApp f [x]
81− , inlineOperator (C.preludeUnsafe, C.unsafeIndex) $ flip JSIndexer
81+ , inlineOperator (C.dataArrayUnsafe, C.unsafeIndex) $ flip JSIndexer
82 , inlineCommonOperators ]) js
82 , inlineCommonOperators ]) js
84untilFixedPoint :: (Monad m, Eq a) => (a -> m a) -> a -> m a
84untilFixedPoint :: (Monad m, Eq a) => (a -> m a) -> a -> m a