@@ -318,17 +318,6 @@ windowsNewlineMode = IO.NewlineMode
318 { IO.inputNL = IO.CRLF, IO.outputNL = IO.CRLF
318 { IO.inputNL = IO.CRLF, IO.outputNL = IO.CRLF
321−-- Newline and NewlineMode have standard Show instance from GHC 7 onwards
322−#if __GLASGOW_HASKELL__ < 700
323−instance Show IO.Newline where
324− show IO.CRLF = "CRLF"
327−instance Show IO.NewlineMode where
328− show (IO.NewlineMode i o) = "NewlineMode { inputNL = " ++ show i ++
329− ", outputNL = " ++ show o ++ " }"
332instance Arbitrary IO.NewlineMode where
321instance Arbitrary IO.NewlineMode where
333 arbitrary = oneof . map return $
322 arbitrary = oneof . map return $
334 [ IO.noNewlineTranslation, IO.universalNewlineMode, IO.nativeNewlineMode
323 [ IO.noNewlineTranslation, IO.universalNewlineMode, IO.nativeNewlineMode