Add new files

src/Control/Foldl/JGK.hs

@@ -0,0 +1,9 @@
+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