diff options
Diffstat (limited to 'libraries/base/Data/Tuple.hs')
| -rw-r--r-- | libraries/base/Data/Tuple.hs | 43 |
1 files changed, 2 insertions, 41 deletions
diff --git a/libraries/base/Data/Tuple.hs b/libraries/base/Data/Tuple.hs index 12684c3ac4..6d7e2f7f6d 100644 --- a/libraries/base/Data/Tuple.hs +++ b/libraries/base/Data/Tuple.hs @@ -23,22 +23,6 @@ module Data.Tuple , curry , uncurry , swap -#ifdef __NHC__ - , (,)(..) - , (,,)(..) - , (,,,)(..) - , (,,,,)(..) - , (,,,,,)(..) - , (,,,,,,)(..) - , (,,,,,,,)(..) - , (,,,,,,,,)(..) - , (,,,,,,,,,)(..) - , (,,,,,,,,,,)(..) - , (,,,,,,,,,,,)(..) - , (,,,,,,,,,,,,)(..) - , (,,,,,,,,,,,,,)(..) - , (,,,,,,,,,,,,,,)(..) -#endif ) where @@ -58,35 +42,12 @@ import GHC.Tuple #endif /* __GLASGOW_HASKELL__ */ -#ifdef __NHC__ -import Prelude -import Prelude - ( (,)(..) - , (,,)(..) - , (,,,)(..) - , (,,,,)(..) - , (,,,,,)(..) - , (,,,,,,)(..) - , (,,,,,,,)(..) - , (,,,,,,,,)(..) - , (,,,,,,,,,)(..) - , (,,,,,,,,,,)(..) - , (,,,,,,,,,,,)(..) - , (,,,,,,,,,,,,)(..) - , (,,,,,,,,,,,,,)(..) - , (,,,,,,,,,,,,,,)(..) - -- nhc98's prelude only supplies tuple instances up to size 15 - , fst, snd - , curry, uncurry - ) -#endif - default () -- Double isn't available yet -- --------------------------------------------------------------------------- -- Standard functions over tuples -#if !defined(__HUGS__) && !defined(__NHC__) +#if !defined(__HUGS__) -- | Extract the first component of a pair. fst :: (a,b) -> a fst (x,_) = x @@ -102,7 +63,7 @@ curry f x y = f (x, y) -- | 'uncurry' converts a curried function to a function on pairs. uncurry :: (a -> b -> c) -> ((a, b) -> c) uncurry f p = f (fst p) (snd p) -#endif /* neither __HUGS__ nor __NHC__ */ +#endif -- | Swap the components of a pair. swap :: (a,b) -> (b,a) |