module Saturn.Unstable.Extra.Tuple where

import qualified Data.Bifunctor as Bifunctor

mapBoth :: (a -> b) -> (a, a) -> (b, b)
mapBoth :: forall a b. (a -> b) -> (a, a) -> (b, b)
mapBoth a -> b
f = (a -> b) -> (a -> b) -> (a, a) -> (b, b)
forall a b c d. (a -> b) -> (c -> d) -> (a, c) -> (b, d)
forall (p :: * -> * -> *) a b c d.
Bifunctor p =>
(a -> b) -> (c -> d) -> p a c -> p b d
Bifunctor.bimap a -> b
f a -> b
f

toSequence :: (Enum a) => (a, a) -> [a]
toSequence :: forall a. Enum a => (a, a) -> [a]
toSequence = (a -> a -> [a]) -> (a, a) -> [a]
forall a b c. (a -> b -> c) -> (a, b) -> c
uncurry a -> a -> [a]
forall a. Enum a => a -> a -> [a]
enumFromTo