1 -----------------------------------------------------------------------------
3 -- Module : System.Info
4 -- Copyright : (c) The University of Glasgow 2001
5 -- License : BSD-style (see the file libraries/base/LICENSE)
7 -- Maintainer : libraries@haskell.org
8 -- Stability : experimental
9 -- Portability : portable
11 -- Misc information about the characteristics of the host
12 -- architecture\/machine lucky enough to run your program.
14 -----------------------------------------------------------------------------
20 compilerName, -- :: String
21 #ifdef __GLASGOW_HASKELL__
22 compilerVersion -- :: Version
31 #include "ghcplatform.h"
44 compilerName :: String
46 compilerName = "nhc98"
47 #elif defined(__GLASGOW_HASKELL__)
49 #elif defined(__HUGS__)
52 #error Unknown compiler name
55 #ifdef __GLASGOW_HASKELL__
56 compilerVersion :: Version
57 compilerVersion = Version {versionBranch=[maj,min], versionTags=[]}
58 where (maj,min) = __GLASGOW_HASKELL__ `divMod` 100