suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Neil Brown 2009-04-02 15:58:35 +00:00
parent aa2b31718a
commit 5024e0d615
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
common/ShowCode.hs
View File

@ -464,6 +464,15 @@ instance ShowOccam A.Formal where
space space
showName n showName n
showOccamM dir 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 (A.Formal am t n) = (maybeVal am)
>> (showOccamM t) >> (showOccamM t)
>> space >> space