@@ -1689,6 +1689,8 @@ classifyScanWith f (Fold step1 initial1 extract1) =
1690 extract (Tuple3' kv _ x) = (Prelude.mapM extract1 kv, x)
1690 extract (Tuple3' kv _ x) = (Prelude.mapM extract1 kv, x)
1692+-- XXX we can use a Prim IORef if we can constrain the state "s" to be Prim
1692-- The code is almost the same as classifyScanWith except the IORef operations.
1694-- The code is almost the same as classifyScanWith except the IORef operations.
1694-- | Same as classifyScanWith except that it uses mutable IORef cells in the
1696-- | Same as classifyScanWith except that it uses mutable IORef cells in the