@@ -700,6 +700,12 @@ module Data.Tuple where
700700
701701 data Tuple a b = Tuple a b
702702
703+ fst :: forall a b. Tuple a b -> a
704+ fst (Tuple a _) = a
705+
706+ snd :: forall a b. Tuple a b -> b
707+ snd (Tuple _ b) = b
708+
703709 instance showTuple :: (Show a, Show b) => Show (Tuple a b) where
704710 show (Tuple a b) = "Tuple(" ++ show a ++ ", " ++ show b ++ ")"
705711