module Data.Tuple
( fst
, snd
, curry
, uncurry
, swap
#ifdef __NHC__
, (,)(..)
, (,,)(..)
, (,,,)(..)
, (,,,,)(..)
, (,,,,,)(..)
, (,,,,,,)(..)
, (,,,,,,,)(..)
, (,,,,,,,,)(..)
, (,,,,,,,,,)(..)
, (,,,,,,,,,,)(..)
, (,,,,,,,,,,,)(..)
, (,,,,,,,,,,,,)(..)
, (,,,,,,,,,,,,,)(..)
, (,,,,,,,,,,,,,,)(..)
#endif
)
where
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.Tuple
#endif /* __GLASGOW_HASKELL__ */
#ifdef __NHC__
import Prelude
import Prelude
( (,)(..)
, (,,)(..)
, (,,,)(..)
, (,,,,)(..)
, (,,,,,)(..)
, (,,,,,,)(..)
, (,,,,,,,)(..)
, (,,,,,,,,)(..)
, (,,,,,,,,,)(..)
, (,,,,,,,,,,)(..)
, (,,,,,,,,,,,)(..)
, (,,,,,,,,,,,,)(..)
, (,,,,,,,,,,,,,)(..)
, (,,,,,,,,,,,,,,)(..)
, fst, snd
, curry, uncurry
)
#endif
default ()
#if !defined(__HUGS__) && !defined(__NHC__)
fst :: (a,b) -> a
fst (x,_) = x
snd :: (a,b) -> b
snd (_,y) = y
curry :: ((a, b) -> c) -> a -> b -> c
curry f x y = f (x, y)
uncurry :: (a -> b -> c) -> ((a, b) -> c)
uncurry f p = f (fst p) (snd p)
#endif /* neither __HUGS__ nor __NHC__ */
swap :: (a,b) -> (b,a)
swap (a,b) = (b,a)
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4