From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 13 Sep 2010 15:30:31 +0000 (+0000)
Subject: deriving (Eq, Ord, Read, Show) for Newline and NewlineMode
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=de919db1c69ed17f04e7c66cfe8a0df81b67ac10;p=ghc-base.git

deriving (Eq, Ord, Read, Show) for Newline and NewlineMode
---

diff --git a/GHC/IO/Handle/Types.hs b/GHC/IO/Handle/Types.hs
index 73a9927..c8b6b79 100644
--- a/GHC/IO/Handle/Types.hs
+++ b/GHC/IO/Handle/Types.hs
@@ -316,7 +316,7 @@ and hence it is only possible on a seekable Handle.
 -- | The representation of a newline in the external file or stream.
 data Newline = LF    -- ^ '\n'
              | CRLF  -- ^ '\r\n'
-             deriving Eq
+             deriving (Eq, Ord, Read, Show)
 
 -- | Specifies the translation, if any, of newline characters between
 -- internal Strings and the external file or stream.  Haskell Strings
@@ -329,7 +329,7 @@ data NewlineMode
                   outputNL :: Newline
                     -- ^ the representation of newlines on output
                  }
-             deriving Eq
+             deriving (Eq, Ord, Read, Show)
 
 -- | The native newline representation for the current platform: 'LF'
 -- on Unix systems, 'CRLF' on Windows.