add a dummy implementation of System.Timeout.timeout for nhc98

diff --git a/Makefile.nhc98 b/Makefile.nhc98
index 17947b5..732b353 100644 (file)
--- a/Makefile.nhc98
+++ b/Makefile.nhc98
@@ -29,7 +29,7 @@ SRCS  = \
        System/Environment.hs System/Exit.hs \
        System/Mem.hs System/Info.hs \
        System/Console/GetOpt.hs \
-       System/CPUTime.hsc \
+       System/CPUTime.hsc System/Timeout.hs \
        Foreign/Ptr.hs Foreign/StablePtr.hs Foreign/Storable.hs \
        Foreign/ForeignPtr.hs Foreign/C/Types.hs \
        Foreign/Marshal/Alloc.hs Foreign/Marshal/Array.hs \

diff --git a/System/Timeout.hs b/System/Timeout.hs
index 48f0ddc..c7e4ee2 100644 (file)
--- a/System/Timeout.hs
+++ b/System/Timeout.hs
@@ -15,6 +15,11 @@
 
 module System.Timeout ( timeout ) where
 
+#if __NHC__
+timeout :: Int -> IO a -> IO (Maybe a)
+timeout n f = fmap Just f
+#else
+
 import Prelude             (IO, Ord((<)), Eq((==)), Int, (.), otherwise, fmap)
 import Data.Maybe          (Maybe(..))
 import Control.Monad       (Monad(..), guard)
@@ -70,3 +75,4 @@ timeout n f
                    (bracket (forkIO (threadDelay n >> throwDynTo pid ex))
                             (killThread)
                             (\_ -> fmap Just f))
+#endif