Fixed the generation of formals that are arrays of channel-ends

2009-04-02 15:58:35 +00:00 · 2009-04-02 15:58:35 +00:00 · 5024e0d615
commit 5024e0d615
parent aa2b31718a
1 changed files with 9 additions and 0 deletions
--- a/common/ShowCode.hs
+++ b/common/ShowCode.hs
@ -464,6 +464,15 @@ instance ShowOccam A.Formal where
         space
         showName n
         showOccamM dir 
+  showOccamM (A.Formal am (A.Array ds (A.ChanEnd dir sh t)) n)
+    = do maybeVal am
+         mapM_ showOccamM ds
+         showOccamM sh
+         tell ["CHAN "]
+         showOccamM t
+         space
+         showName n
+         showOccamM dir 
  showOccamM (A.Formal am t n) = (maybeVal am)
                                 >> (showOccamM t)
                                 >> space