halberd-0.1.2: src/Data/Tuple/Utils.hs

module Data.Tuple.Utils where

snd3 :: (a, b, c) -> b
snd3 (_, y, _) = y

trd3 :: (a, b, c) -> c
trd3 (_, _, z) = z