compiler: de-lhs main/

Signed-off-by: Austin Seipp <austin@well-typed.com>

1 files changed, 32 insertions, 0 deletions

diff --git a/compiler/main/Constants.hs b/compiler/main/Constants.hs
new file mode 100644
index 0000000000..0054888df3
--- /dev/null
+++ b/compiler/main/Constants.hs
@@ -0,0 +1,32 @@
+{-
+(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