From 95fd6321d1faa32d0e1212cb2ea0227fefa835df Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Tue, 18 Mar 2008 11:53:57 +0000
Subject: [PATCH] Added support for parsing list types in Rain

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

diff --git a/frontends/ParseRain.hs b/frontends/ParseRain.hs
index 1789474..1ab63da 100644
--- a/frontends/ParseRain.hs
+++ b/frontends/ParseRain.hs
@@ -158,6 +158,7 @@ dataType
     <|> do {sChannel ; inner <- dataType ; return $ A.Chan A.DirUnknown (A.ChanAttributes {A.caWritingShared = False, A.caReadingShared = False}) inner}
     <|> do {sIn ; inner <- dataType ; return $ A.Chan A.DirInput (A.ChanAttributes {A.caWritingShared = False, A.caReadingShared = False}) inner}
     <|> do {sOut ; inner <- dataType ; return $ A.Chan A.DirOutput (A.ChanAttributes {A.caWritingShared = False, A.caReadingShared = False}) inner}
+    <|> do {sLeftQ ; inner <- dataType ; sRightQ ; return $ A.List inner}
     <|> do {(m,n) <- identifier ; return $ A.UserDataType A.Name {A.nameMeta = m, A.nameName = n, A.nameType = A.DataTypeName}}
     <?> "data type"