git.iko.soy/streamly
on master help sign in
Fix hlint errors.
74c5351pranaysashank
src/Streamly/Internal/Data/Fold.hs+1−1
compare with master
unifiedsplit
@@ -416,7 +416,7 @@ drainBy2 f = Fold2 (const (void . f)) (\_ -> return ()) return
416-- @since 0.7.0
416-- @since 0.7.0
417{-# INLINABLE last #-}
417{-# INLINABLE last #-}
418last :: Monad m => Fold m a (Maybe a)
418last :: Monad m => Fold m a (Maybe a)
419−last = _Fold1 (flip const)
419+last = _Fold1 (\_ x -> x)
420
420
421------------------------------------------------------------------------------
421------------------------------------------------------------------------------
422-- To Summary
422-- To Summary