Prelude.JAExtra

Misc

onlyIf :: α -> Bool -> Maybe α

Contruct a value based on a boolean guard.

>>> "blue" `onlyIf` (len [1] == 1)
Just "blue"

Tuples

curry2 :: ((α, β) -> γ) -> α -> β -> γ

Alias for curry.

curry3 :: ((α, β, γ) -> δ) -> α -> β -> γ -> δ

curry4 :: ((α, β, γ, δ) -> ε) -> α -> β -> γ -> δ -> ε

curry5 :: ((α, β, γ, δ, ε) -> ζ) -> α -> β -> γ -> δ -> ε -> ζ

uncurry2 :: (α -> β -> γ) -> (α, β) -> γ

Alias for uncurry according to my function naming conventions.

uncurry3 :: (α -> β -> γ -> δ) -> (α, β, γ) -> δ

uncurry4 :: (α -> β -> γ -> δ -> ε) -> (α, β, γ, δ) -> ε

uncurry5 :: (α -> β -> γ -> δ -> ε -> ζ) -> (α, β, γ, δ, ε) -> ζ

Lists

fillZip :: [α] -> [β] -> [(Maybe α, Maybe β)]

Alias for fillZip2.

fillZip3 :: [α] -> [β] -> [γ] -> [(Maybe α, Maybe β, Maybe γ)]

monoidFillZip :: (Monoid α, Monoid β) => [α] -> [β] -> [(α, β)]

Alias for monoidFillZip2.

monoidFillZip3 :: (Monoid α, Monoid β, Monoid γ) => [α] -> [β] -> [γ] -> [(α, β, γ)]

Functions

stuffWith2 :: (α -> α -> β) -> α -> β

stuffWith3 :: (α -> α -> α -> β) -> α -> β