[project @ 2004-02-13 17:46:32 by ross]

make import Foreign.C.String GHC-only to unbreak Hugs build

diff --git a/Control/Exception.hs b/Control/Exception.hs
index e4e037e..20105e8 100644 (file)
--- 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)