[project @ 2005-01-28 16:09:06 by malcolm]

[ghc-base.git] / System / Info.hs

diff --git a/System/Info.hs b/System/Info.hs
index dfb3018..68a4a1f 100644 (file)
--- a/System/Info.hs
+++ b/System/Info.hs
@@ -18,7 +18,9 @@ module System.Info
        os,                 -- :: String
        arch,               -- :: String
        compilerName,       -- :: String
+#ifdef __GLASGOW_HASKELL__
        compilerVersion     -- :: Version
+#endif
    ) where
 
 import Prelude
@@ -50,8 +52,15 @@ compilerName = "hugs"
 #error Unknown compiler name
 #endif
 
-compilerVersion :: Version
 #ifdef __GLASGOW_HASKELL__
+compilerVersion :: Version
 compilerVersion = Version {versionBranch=[maj,min], versionTags=[]}
   where (maj,min) = __GLASGOW_HASKELL__ `divMod` 100
 #endif
+
+#ifdef __NHC__
+compilerVersion :: Version
+compilerVersion = Version {versionBranch=[maj,min], versionTags=[]}
+  where (maj,min) = __NHC__ `divMod` 100
+#endif
+