Remove nhc98-specific files and content
authorIan Lynagh <ian@well-typed.com>
Fri, 15 Feb 2013 20:57:26 +0000 (20:57 +0000)
committerIan Lynagh <ian@well-typed.com>
Fri, 15 Feb 2013 20:57:26 +0000 (20:57 +0000)
Makefile.nhc98 [deleted file]
Prelude.hs
Random.hs
cbits/dummy-nhc.c [deleted file]

diff --git a/Makefile.nhc98 b/Makefile.nhc98
deleted file mode 100644 (file)
index 8542291..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-THISPKG        = haskell98
-SEARCH =
-EXTRA_H_FLAGS   =
-EXTRA_HBC_FLAGS =
-
-DIRS   =
-SRCS   = dummy-nhc.c
-
-# Here are the main rules.
-include ../Makefile.common
-
-# some extra rules
-extra:
-extracfiles:
-
-# Here are any extra dependencies.
-
-# C-files dependencies.
-
index 929fc41..ba5a601 100644 (file)
@@ -28,13 +28,6 @@ module Prelude (
         -- *** Tuples
         fst, snd, curry, uncurry,
 
-#if defined(__NHC__)
-        []((:), []),        -- Not legal Haskell 98;
-                            -- ... available through built-in syntax
-        module Data.Tuple,  -- Includes tuple types
-        ()(..),             -- Not legal Haskell 98
-        (->),               -- ... available through built-in syntax
-#endif
 #ifdef __HUGS__
         (:),                -- Not legal Haskell 98
 #endif
index 32e3384..eea735a 100644 (file)
--- a/Random.hs
+++ b/Random.hs
@@ -37,15 +37,9 @@ import Prelude
 
 import Data.Int
 
-#ifdef __NHC__
-import CPUTime          ( getCPUTime )
-import Foreign.Ptr      ( Ptr, nullPtr )
-import Foreign.C        ( CTime, CUInt )
-#else
 import System.CPUTime   ( getCPUTime )
 import Data.Time        ( getCurrentTime, UTCTime(..) )
 import Data.Ratio       ( numerator, denominator )
-#endif
 import Data.Char        ( isSpace, chr, ord )
 import System.IO.Unsafe ( unsafePerformIO )
 import Data.IORef
@@ -54,17 +48,11 @@ import Numeric          ( readDec )
 -- The standard nhc98 implementation of Time.ClockTime does not match
 -- the extended one expected in this module, so we lash-up a quick
 -- replacement here.
-#ifdef __NHC__
-foreign import ccall "time.h time" readtime :: Ptr CTime -> IO CTime
-getTime :: IO (Integer, Integer)
-getTime = do CTime t <- readtime nullPtr;  return (toInteger t, 0)
-#else
 getTime :: IO (Integer, Integer)
 getTime = do
   utc <- getCurrentTime
   let daytime = toRational $ utctDayTime utc
   return $ quotRem (numerator daytime) (denominator daytime)
-#endif
 
 -- | The class 'RandomGen' provides a common interface to random number
 -- generators.
diff --git a/cbits/dummy-nhc.c b/cbits/dummy-nhc.c
deleted file mode 100644 (file)
index 14dc3ea..0000000
+++ /dev/null
@@ -1 +0,0 @@
-void nhc_haskell98_dummy (void) {}