From 3094cd6ca224859e7aa2fbbab15221f7d7f40a55 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 25 Nov 1997 12:43:48 +0000
Subject: [PATCH] [project @ 1997-11-25 12:43:48 by simonm] add ST macros for
 GHC < 2.00.

---
 ghc/compiler/HsVersions.h | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h
index 77e9a22baa73..a51591817359 100644
--- a/ghc/compiler/HsVersions.h
+++ b/ghc/compiler/HsVersions.h
@@ -110,6 +110,10 @@ you will screw up the layout where they are used in case expressions!
 # define minInt (minBound::Int)
 # define maxInt (maxBound::Int)
 #else
+# define STATE_TOK(x)  (S# x)
+# define ST_RET(x,y)   (x,y)
+# define unsafePerformST(x) unsafePerformPrimIO(x)
+# define ST_TO_PrimIO(x) x
 # define SYN_IE(a) a(..)
 # define EXP_MODULE(a) a..
 # define IMPORT_DELOOPER(mod) import mod
-- 
GitLab