module LaunchDarkly.Server.Util ( fst3 , snd3 , trd ) where -- | -- Returns the first element of a 3-tuple. fst3 :: (a, b, c) -> a fst3 :: forall a b c. (a, b, c) -> a fst3 (a x, b _, c _) = a x -- | -- Returns the second element of a 3-tuple. snd3 :: (a, b, c) -> b snd3 :: forall a b c. (a, b, c) -> b snd3 (a _, b x, c _) = b x -- | -- Returns the third element of a 3-tuple. trd :: (a, b, c) -> c trd :: forall a b c. (a, b, c) -> c trd (a _, b _, c x) = c x