From 23d401400bf5d81c31d3c2d1af6e735368bc7169 Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Mon, 31 Jan 2005 13:45:50 +0000
Subject: [PATCH 1/1] [project @ 2005-01-31 13:45:50 by malcolm] Work around
 type-system bug (cxt in lhs pattern) in nhc98.

---
 System/Info.hs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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