public
Created

  • Download Gist
ArrowOperatorQuestion.hs
Haskell
1 2 3 4 5 6 7 8 9 10 11
module ArrowOperatorQuestion where
import Control.Arrow ((***))
 
f :: u -> v -> w
f _ _ = error "f"
 
g :: x -> y -> z
g _ _ = error "g"
 
h :: (u,x) -> (v,y) -> (w,z)
h = uncurry (***) . (f *** g)

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.