From be676060b939ef6db2146afa4a76c73ccd6e0c86 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 26 Sep 2007 23:18:57 +0000
Subject: [PATCH] Added a new wait guard (that matches the Rain wait guards
 exactly) to the AST

---
 common/AST.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/common/AST.hs b/common/AST.hs
index 935431c..d0abf20 100644
--- a/common/AST.hs
+++ b/common/AST.hs
@@ -335,6 +335,8 @@ data Alternative =
   -- | A @SKIP@ guard (one that is always ready).
   -- The 'Expression' is the pre-condition.
   | AlternativeSkip Meta Expression Process
+  -- | A @wait for@/@until@ guard.
+  | AlternativeWait Meta WaitMode Expression Process
   deriving (Show, Eq, Typeable, Data)
 
 -- | An option in a @CASE@ process.