From 7dce20a482831cd7a8d8f7d1f6092102d2779504 Mon Sep 17 00:00:00 2001 From: ross Date: Fri, 13 Feb 2004 17:46:32 +0000 Subject: [PATCH] [project @ 2004-02-13 17:46:32 by ross] make import Foreign.C.String GHC-only to unbreak Hugs build --- Control/Exception.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Control/Exception.hs b/Control/Exception.hs index e4e037e..20105e8 100644 --- a/Control/Exception.hs +++ b/Control/Exception.hs @@ -118,14 +118,13 @@ import GHC.Exception as ExceptionBase hiding (catch) import GHC.Conc ( throwTo, ThreadId ) import GHC.IOBase ( IO(..), IORef(..), newIORef, readIORef, writeIORef ) import GHC.Handle ( stdout, hFlush ) +import Foreign.C.String ( CString, withCStringLen ) #endif #ifdef __HUGS__ import Hugs.Exception as ExceptionBase #endif -import Foreign.C.String ( CString, withCStringLen ) - import Prelude hiding ( catch ) import System.IO.Error hiding ( catch, try ) import System.IO.Unsafe (unsafePerformIO) -- 1.7.10.4