From: malcolm <unknown>
Date: Mon, 31 Jan 2005 13:45:50 +0000 (+0000)
Subject: [project @ 2005-01-31 13:45:50 by malcolm]
X-Git-Tag: nhc98-1-18-release~55
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=23d401400bf5d81c31d3c2d1af6e735368bc7169;hp=49283ebbb8870082ed2da7f2f564ab890a248e5f;p=ghc-base.git

[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
--- 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