diff options
Diffstat (limited to 'Utility/Tuple.hs')
-rw-r--r-- | Utility/Tuple.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Utility/Tuple.hs b/Utility/Tuple.hs index 78dd5d0c9..25c6e8f36 100644 --- a/Utility/Tuple.hs +++ b/Utility/Tuple.hs @@ -5,11 +5,13 @@ - License: BSD-2-clause -} +module Utility.Tuple where + fst3 :: (a,b,c) -> a -fst3 (a,b,c) = a +fst3 (a,_,_) = a snd3 :: (a,b,c) -> b -snd3 (a,b,c) = b +snd3 (_,b,_) = b thd3 :: (a,b,c) -> c -thd3 (a,b,c) = c +thd3 (_,_,c) = c |