module Control.Foldl.JGK
    ( module Control.Foldl
    ) where
import Control.Foldl

--minimumOn :: Ord b => (a -> b) -> Fold a (Maybe a)
--minimumOn f = _Fold1 min'
--  where
--    min' x y