[project @ 2005-01-31 13:45:50 by malcolm]

Work around type-system bug (cxt in lhs pattern) in nhc98.

diff --git a/System/Info.hs b/System/Info.hs
index 68a4a1f..c27ef9d 100644 (file)
--- a/System/Info.hs
+++ b/System/Info.hs
@@ -61,6 +61,8 @@ compilerVersion = Version {versionBranch=[maj,min], versionTags=[]}
 #ifdef __NHC__
 compilerVersion :: Version
 compilerVersion = Version {versionBranch=[maj,min], versionTags=[]}
-  where (maj,min) = __NHC__ `divMod` 100
+  where version = __NHC__ `divMod` 100
+        maj = fst version
+        min = snd version
 #endif