From: ross <unknown>
Date: Fri, 13 Feb 2004 17:46:32 +0000 (+0000)
Subject: [project @ 2004-02-13 17:46:32 by ross]
X-Git-Tag: nhc98-1-18-release~382
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7dce20a482831cd7a8d8f7d1f6092102d2779504;p=haskell-directory.git

[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
--- 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)