From 825c5c7be443f287a46c8212473e419f9106b9cf Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 4 May 2010 09:53:39 +0000 Subject: [PATCH] Add swap (#3298) --- Data/Tuple.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Data/Tuple.hs b/Data/Tuple.hs index 89fb861..693b8d7 100644 --- a/Data/Tuple.hs +++ b/Data/Tuple.hs @@ -20,6 +20,7 @@ module Data.Tuple , snd -- :: (a,b) -> a , curry -- :: ((a, b) -> c) -> a -> b -> c , uncurry -- :: (a -> b -> c) -> ((a, b) -> c) + , swap -- :: (a,b) -> (b,a) #ifdef __NHC__ , (,)(..) , (,,)(..) @@ -104,3 +105,7 @@ 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 the components of a pair. +swap :: (a,b) -> (b,a) +swap (a,b) = (b,a) -- 1.7.10.4