@@ -381,7 +381,7 @@ extractStep f res =
381 Error err -> return $ Error err
381 Error err -> return $ Error err
383{-# INLINE mapStateStep #-}
383{-# INLINE mapStateStep #-}
384−mapStateStep :: (s -> s1) -> Step s b -> (Step s1 b)
384+mapStateStep :: (s -> s1) -> Step s b -> Step s1 b
385mapStateStep f res =
385mapStateStep f res =
386 case res of
386 case res of
387 Partial n s1 -> Partial n $ f s1
387 Partial n s1 -> Partial n $ f s1