Work around type-system bug (cxt in lhs pattern) in nhc98.
#ifdef __NHC__
compilerVersion :: Version
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