From d79de5a936a701dd6e14d60fe1a4c0973c27340e Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 26 Sep 2007 23:34:55 +0000
Subject: [PATCH] Rain: implemented parsing of wait guards

---
 frontends/ParseRain.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/frontends/ParseRain.hs b/frontends/ParseRain.hs
index df13ba5..2d26908 100644
--- a/frontends/ParseRain.hs
+++ b/frontends/ParseRain.hs
@@ -341,6 +341,9 @@ alt = do {m <- sPri ; sAlt ; m' <- sLeftC ; cases <- many altCase ; optElseCase
                  case input of
                    A.Input m lv im -> do { body <- block ; return $ A.OnlyA m $ A.Alternative m lv im body }
                    _ -> dieP (findMeta input) $ "communication type not supported in an alt: \"" ++ show input ++ "\""
+              <|> do (m, wm, e) <- waitStatement True
+                     body <- block
+                     return $ A.OnlyA m $ A.AlternativeWait m wm e body
     elseCase :: RainParser A.Structured
     elseCase = do m <- sElse
                   body <- block