X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=System%2FInfo.hs;h=85b90177b5104a53e729995260578304de900c45;hb=ca6b0a3e29400e95514169cd2735768965be1396;hp=dfb30188d43590a92f326d21c848a1110ae44519;hpb=ec3ba94b254bd444e7a1c560c1d91c4879948c69;p=ghc-base.git diff --git a/System/Info.hs b/System/Info.hs index dfb3018..85b9017 100644 --- a/System/Info.hs +++ b/System/Info.hs @@ -18,7 +18,9 @@ module System.Info os, -- :: String arch, -- :: String compilerName, -- :: String +#ifdef __GLASGOW_HASKELL__ compilerVersion -- :: Version +#endif ) where import Prelude @@ -50,8 +52,8 @@ compilerName = "hugs" #error Unknown compiler name #endif -compilerVersion :: Version #ifdef __GLASGOW_HASKELL__ +compilerVersion :: Version compilerVersion = Version {versionBranch=[maj,min], versionTags=[]} where (maj,min) = __GLASGOW_HASKELL__ `divMod` 100 #endif