From de09e948053e7819c6febe902b0e74991ed160fc Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Wed, 5 Mar 2008 01:03:43 +0000 Subject: [PATCH] untabify --- Data/Tuple.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Data/Tuple.hs b/Data/Tuple.hs index a149585..64d8e77 100644 --- a/Data/Tuple.hs +++ b/Data/Tuple.hs @@ -14,10 +14,10 @@ ----------------------------------------------------------------------------- module Data.Tuple - ( fst -- :: (a,b) -> a - , snd -- :: (a,b) -> a - , curry -- :: ((a, b) -> c) -> a -> b -> c - , uncurry -- :: (a -> b -> c) -> ((a, b) -> c) + ( fst -- :: (a,b) -> a + , snd -- :: (a,b) -> a + , curry -- :: ((a, b) -> c) -> a -> b -> c + , uncurry -- :: (a -> b -> c) -> ((a, b) -> c) #ifdef __NHC__ , (,)(..) , (,,)(..) @@ -64,7 +64,7 @@ import Prelude ) #endif -default () -- Double isn't available yet +default () -- Double isn't available yet #ifdef __GLASGOW_HASKELL__ data (,) a b = (,) a b deriving (Eq, Ord) @@ -259,12 +259,12 @@ data (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, #if !defined(__HUGS__) && !defined(__NHC__) -- | Extract the first component of a pair. -fst :: (a,b) -> a -fst (x,_) = x +fst :: (a,b) -> a +fst (x,_) = x -- | Extract the second component of a pair. -snd :: (a,b) -> b -snd (_,y) = y +snd :: (a,b) -> b +snd (_,y) = y -- | 'curry' converts an uncurried function to a curried function. curry :: ((a, b) -> c) -> a -> b -> c -- 1.7.10.4