#ifdef __GLASGOW_HASKELL__
import GHC.Base
-import GHC.Num
import GHC.Show
-- import GHC.IO ( IO )
import GHC.IO.Handle.FD ( stdout )
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.Show
-import GHC.Num
import GHC.Exception
#endif
import GHC.Show (Show(..), ShowS,
shows, showString, showChar, showParen)
import GHC.Err (undefined)
-import GHC.Num (Integer, fromInteger, (+))
+import GHC.Num (Integer, (+))
import GHC.Real ( rem, Ratio )
import GHC.IORef (IORef,newIORef)
import GHC.IO (unsafePerformIO,mask_)
import GHC.Ptr
import GHC.Err
import GHC.Base
-import GHC.Num
#elif defined(__NHC__)
import NHC.FFI ( FinalizerPtr, CInt(..) )
import IO ( bracket )
#endif
) where
-import Control.Monad
import Foreign
import GHC.Base
import GHC.Conc.Sync as Sync
import GHC.IO (mask_, unsafePerformIO)
import GHC.IOArray (IOArray, boundsIOArray, newIOArray, unsafeReadIOArray,
unsafeWriteIOArray)
-import GHC.Num (fromInteger)
import GHC.Real (fromIntegral)
import GHC.Word (Word8)
import GHC.Exception
import GHC.IORef
import GHC.MVar
-import GHC.Num ( Num(..) )
import GHC.Real ( fromIntegral )
import GHC.Pack ( packCString# )
import GHC.Show ( Show(..), showString )
import GHC.STRef ( STRef(..) )
import GHC.Ptr ( Ptr(..), FunPtr(..) )
import GHC.Err
-import GHC.Num ( fromInteger )
#include "Typeable.h"
) where
import GHC.Base
-import GHC.Num
import GHC.Real
import GHC.Show
import Data.Maybe
import GHC.Base
import GHC.List ( length )
import GHC.ST
-import GHC.Num
import GHC.Ptr
data ByteArray ix = ByteArray ix ix ByteArray#
import GHC.Base
import GHC.Show
-import GHC.Num
default ()
\end{code}
import GHC.Base
import GHC.Real (fromIntegral)
import Foreign.C.Types (CInt)
-import GHC.Num (fromInteger)
#include "HsBaseConfig.h"
import Foreign.ForeignPtr (ForeignPtr)
import GHC.Base
import GHC.Conc.Signal (Signal)
-import GHC.Num (Num(..))
import GHC.Real (fromIntegral)
import GHC.Show (Show)
import GHC.Word (Word8)
import GHC.Conc.Signal (runHandlers)
import GHC.List (filter)
import GHC.Num (Num(..))
-import GHC.Real ((/), fromIntegral, fromRational)
+import GHC.Real ((/), fromIntegral )
import GHC.Show (Show(..))
import System.Event.Clock (getCurrentTime)
import System.Event.Control
import Control.Exception (Exception, handleJust, throwTo, bracket)
import Data.Typeable
import Data.Unique (Unique, newUnique)
-import GHC.Num
-- An internal type that is thrown as a dynamic exception to
-- interrupt the running IO computation when the timeout has