Fix hlint error on ParserD/Type

This commit is contained in:
Harendra Kumar 2022-08-09 03:46:15 +05:30 committed by Harendra Kumar
parent ff1dd549c6
commit dde88b8b00
2 changed files with 1 additions and 2 deletions

View File

@ -1,5 +1,4 @@
core/src/Streamly/Internal/Data/Fold.hs
core/src/Streamly/Internal/Data/Parser/ParserD/Type.hs
core/src/Streamly/Internal/Data/Unboxed.hs
core/src/Streamly/Internal/Data/Array/Unboxed.hs
core/src/Streamly/Internal/Data/Array/Unboxed/Type.hs

View File

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