untabify

[ghc-base.git] / Data / Either.hs

diff --git a/Data/Either.hs b/Data/Either.hs
index 0c5e153..38766ad 100644 (file)
--- a/Data/Either.hs
+++ b/Data/Either.hs
@@ -15,7 +15,7 @@
 
 module Data.Either (
    Either(..),
-   either      -- :: (a -> c) -> (b -> c) -> Either a b -> c
+   either       -- :: (a -> c) -> (b -> c) -> Either a b -> c
  ) where
 
 #ifdef __GLASGOW_HASKELL__
@@ -31,7 +31,7 @@ either correct or an error; by convention, the 'Left' constructor is
 used to hold an error value and the 'Right' constructor is used to
 hold a correct value (mnemonic: \"right\" also means \"correct\").
 -}
-data  Either a b  =  Left a | Right b  deriving (Eq, Ord )
+data  Either a b  =  Left a | Right b   deriving (Eq, Ord )
 
 -- | Case analysis for the 'Either' type.
 -- If the value is @'Left' a@, apply the first function to @a@;