From aa10b0113d8500565c52f71bbba298c34799efd6 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 12 Apr 2009 13:51:48 +0000
Subject: [PATCH] Allowed direction specifiers to be added to variables that
 are channel bundles when they are passed as arguments

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

diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index eab0b3b..ec2f90c 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -1914,6 +1914,7 @@ actual (A.Formal am t n)
               case stripArrayType t of
                 A.Chan {} -> var directedChannel <|> chanArray
                 A.ChanEnd {} -> var directedChannel <|> chanArray
+                A.ChanDataType {} -> var directedChannel
                 A.Timer {} -> var timer
                 A.Port _ -> var port
                 _ -> var variable