17 lines
247 B
Haskell
17 lines
247 B
Haskell
module Tuple
|
|
( trip1
|
|
, trip2
|
|
, trip3
|
|
)
|
|
where
|
|
|
|
trip1 :: (a,b,c) -> a
|
|
{-# INLINE trip1 #-}
|
|
trip1 (x,_,_) = x
|
|
trip2 :: (a,b,c) -> b
|
|
{-# INLINE trip2 #-}
|
|
trip2 (_,x,_) = x
|
|
trip3 :: (a,b,c) -> c
|
|
{-# INLINE trip3 #-}
|
|
trip3 (_,_,x) = x
|