1ff889e456
A small amount of dead code removed. All of Utility/ done now. This commit was sponsored by Brock Spratlen on Patreon.
21 lines
276 B
Haskell
21 lines
276 B
Haskell
{- tuple utility functions
|
|
-
|
|
- Copyright 2017 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
module Utility.Tuple (
|
|
fst3,
|
|
snd3,
|
|
thd3,
|
|
) where
|
|
|
|
fst3 :: (a,b,c) -> a
|
|
fst3 (a,_,_) = a
|
|
|
|
snd3 :: (a,b,c) -> b
|
|
snd3 (_,b,_) = b
|
|
|
|
thd3 :: (a,b,c) -> c
|
|
thd3 (_,_,c) = c
|