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