From 237783e77c42ef3b1d5bfe2d31545b9554a1c38a Mon Sep 17 00:00:00 2001 From: andy Date: Thu, 9 Mar 2000 21:16:49 +0000 Subject: [PATCH] [project @ 2000-03-09 21:16:49 by andy] Wibble: rm needless import Prelude used by Hugs. --- ghc/lib/std/Array.lhs | 1 - ghc/lib/std/IO.lhs | 1 - ghc/lib/std/Random.lhs | 1 - ghc/lib/std/System.lhs | 1 - 4 files changed, 4 deletions(-) diff --git a/ghc/lib/std/Array.lhs b/ghc/lib/std/Array.lhs index 5ee94ff..9c32f4a 100644 --- a/ghc/lib/std/Array.lhs +++ b/ghc/lib/std/Array.lhs @@ -45,7 +45,6 @@ import PrelShow import PrelArr -- Most of the hard work is done here import PrelBase #else -import Prelude import privileged Prelude ( PrimArray , runST , primNewArray diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs index a0559f7..a1af357 100644 --- a/ghc/lib/std/IO.lhs +++ b/ghc/lib/std/IO.lhs @@ -94,7 +94,6 @@ module IO ( #ifdef __HUGS__ import Ix(Ix) -import Prelude import privileged Prelude ( IORef , unsafePerformIO , prelCleanupAfterRunAction diff --git a/ghc/lib/std/Random.lhs b/ghc/lib/std/Random.lhs index 2d61fc2..beafd35 100644 --- a/ghc/lib/std/Random.lhs +++ b/ghc/lib/std/Random.lhs @@ -39,7 +39,6 @@ import PrelReal ( toInt ) import PrelFloat ( float2Double, double2Float ) import Time ( getClockTime, ClockTime(..) ) #else -import Prelude import privileged Prelude ( IORef , newIORef diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs index ab4f9d9..1b7637d 100644 --- a/ghc/lib/std/System.lhs +++ b/ghc/lib/std/System.lhs @@ -188,7 +188,6 @@ unpackProgName argv -- -- Suitable for use with Hugs 98 ----------------------------------------------------------------------------- -import Prelude import privileged Prelude ( primGetRawArgs , primGetEnv , prelCleanupAfterRunAction -- 1.7.10.4