main/Constants.hs

    {-
    (c) The GRASP/AQUA Project, Glasgow University, 1992-1998

    \section[Constants]{Info about this compilation}
    -}

    module Constants (module Constants) where

    import Config

    hiVersion :: Integer
    hiVersion = read (cProjectVersionInt ++ cProjectPatchLevel) :: Integer

    -- All pretty arbitrary:

    mAX_TUPLE_SIZE :: Int
    mAX_TUPLE_SIZE = 62 -- Should really match the number
                        -- of decls in Data.Tuple

    mAX_CONTEXT_REDUCTION_DEPTH :: Int
    mAX_CONTEXT_REDUCTION_DEPTH = 100
      -- Trac #5395 reports at least one library that needs depth 37 here

    mAX_TYPE_FUNCTION_REDUCTION_DEPTH :: Int
    mAX_TYPE_FUNCTION_REDUCTION_DEPTH = 200
      -- Needs to be much higher than mAX_CONTEXT_REDUCTION_DEPTH; see Trac #5395

    wORD64_SIZE :: Int
    wORD64_SIZE = 8

    tARGET_MAX_CHAR :: Int
    tARGET_MAX_CHAR = 0x10ffff