make import Foreign.C.String GHC-only to unbreak Hugs build
import GHC.Conc ( throwTo, ThreadId )
import GHC.IOBase ( IO(..), IORef(..), newIORef, readIORef, writeIORef )
import GHC.Handle ( stdout, hFlush )
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
#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)
import Prelude hiding ( catch )
import System.IO.Error hiding ( catch, try )
import System.IO.Unsafe (unsafePerformIO)