src/Uncurry.hs

   1 module Uncurry
   2 where
   3
   4
   5 uncurry3 :: (a -> b -> c -> d) -> ((a,b,c) -> d)
   6 uncurry3 f = \(x,y,z) -> f x y z
   7
   8 uncurry4 :: (a -> b -> c -> d -> e) -> ((a,b,c,d) -> e)
   9 uncurry4 f = \(w,x,y,z) -> f w x y z
  10
  11 uncurry5 :: (a -> b -> c -> d -> e -> f) -> ((a,b,c,d,e) -> f)
  12 uncurry5 f = \(v,w,x,y,z) -> f v w x y z
  13
  14 uncurry6 :: (a -> b -> c -> d -> e -> f -> g) -> ((a,b,c,d,e,f) -> g)
  15 uncurry6 f = \(u,v,w,x,y,z) -> f u v w x y z