From 00a719a451fb76d315785c4044adb17049653c32 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 11 Sep 2008 22:16:52 +0000
Subject: [PATCH] Added a new InjectPoison process to the AST

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

diff --git a/data/AST.hs b/data/AST.hs
index dd4d831..52c1799 100644
--- a/data/AST.hs
+++ b/data/AST.hs
@@ -554,6 +554,8 @@ data Process =
   -- legal outside a @PLACED PAR@.
   | Processor Meta Expression Process
   | Alt Meta Bool (Structured Alternative)
+  -- | Poisons the given channel(-end) (or barrier, in future)
+  | InjectPoison Meta Variable
   | ProcCall Meta Name [Actual]
   -- | A call of a built-in @PROC@.
   -- This may go away in the future, since which @PROC@s are intrinsics depends