From 26133f73ba78705b5878d4512d81832c178e90d4 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 29 Aug 2000 16:37:35 +0000
Subject: [PATCH] [project @ 2000-08-29 16:37:35 by simonpj] Remove redundant
imports and dead code
---
ghc/lib/std/PrelFloat.lhs | 3 +--
ghc/lib/std/PrelHandle.lhs | 8 +-------
2 files changed, 2 insertions(+), 9 deletions(-)
diff --git a/ghc/lib/std/PrelFloat.lhs b/ghc/lib/std/PrelFloat.lhs
index de8727b5a784..3d202c7034c7 100644
--- a/ghc/lib/std/PrelFloat.lhs
+++ b/ghc/lib/std/PrelFloat.lhs
@@ -1,5 +1,5 @@
% ------------------------------------------------------------------------------
-% $Id: PrelFloat.lhs,v 1.8 2000/06/30 13:39:35 simonmar Exp $
+% $Id: PrelFloat.lhs,v 1.9 2000/08/29 16:37:35 simonpj Exp $
%
% (c) The University of Glasgow, 1994-2000
%
@@ -24,7 +24,6 @@ and the classes
module PrelFloat( module PrelFloat, Float#, Double# ) where
-import {-# SOURCE #-} PrelErr
import PrelBase
import PrelList
import PrelEnum
diff --git a/ghc/lib/std/PrelHandle.lhs b/ghc/lib/std/PrelHandle.lhs
index 2e46e84a0de9..63e8f7efd2f5 100644
--- a/ghc/lib/std/PrelHandle.lhs
+++ b/ghc/lib/std/PrelHandle.lhs
@@ -1,5 +1,5 @@
% ------------------------------------------------------------------------------
-% $Id: PrelHandle.lhs,v 1.60 2000/07/25 15:20:10 simonmar Exp $
+% $Id: PrelHandle.lhs,v 1.61 2000/08/29 16:37:35 simonpj Exp $
%
% (c) The AQUA Project, Glasgow University, 1994-2000
%
@@ -1088,12 +1088,6 @@ wantSeekableHandle fun handle act =
ClosedHandle -> ioe_closedHandle fun handle
SemiClosedHandle -> ioe_closedHandle fun handle
_ -> act handle_
- where
- not_seekable_error =
- IOException (IOError (Just handle)
- IllegalOperation fun
- ("handle is not seekable"))
-
\end{code}
Internal function for creating an @IOError@ representing the
--
GitLab