diff options
| author | malcolm <unknown> | 2005-01-31 13:45:50 +0000 |
|---|---|---|
| committer | malcolm <unknown> | 2005-01-31 13:45:50 +0000 |
| commit | 9f60683099cf176caa99613b303a9a0734940d80 (patch) | |
| tree | 8397ae0b90b1f2040554bf3fb82798d12e6ef1ca /libraries/base/System/Info.hs | |
| parent | 353ec34b1b34ae441c51dc0387ff677e5d9826b4 (diff) | |
| download | haskell-9f60683099cf176caa99613b303a9a0734940d80.tar.gz | |
[project @ 2005-01-31 13:45:50 by malcolm]
Work around type-system bug (cxt in lhs pattern) in nhc98.
Diffstat (limited to 'libraries/base/System/Info.hs')
| -rw-r--r-- | libraries/base/System/Info.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libraries/base/System/Info.hs b/libraries/base/System/Info.hs index 68a4a1f25d..c27ef9d704 100644 --- a/libraries/base/System/Info.hs +++ b/libraries/base/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 |