1 2 3 4 5
{-# LANGUAGE PartialTypeSignatures, NamedWildCards #-} module UncurryNamed where unc :: (_a -> _b -> _c) -> (_a, _b) -> _c unc = uncurry