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

Fixed the display of names in ShowCode for Rain

Browse Source
This commit is contained in:
Neil Brown 2008-03-23 12:13:55 +00:00
parent 1bf3f6f0f1
commit 7830d82c51
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/ShowCode.hs
View File

@ -323,7 +323,7 @@ instance ShowOccam A.Variable where
showOccamM (A.DirectedVariable _ A.DirOutput v) = showOccamM v >> tell ["!"]
instance ShowRain A.Variable where
showRainM (A.Variable _ n) = tell [show n]
showRainM (A.Variable _ n) = showName n
showRainM (A.DirectedVariable _ A.DirInput v) = tell ["?"] >> showRainM v
showRainM (A.DirectedVariable _ A.DirOutput v) = tell ["!"] >> showRainM v
showRainM x = tell ["<invalid Rain variable: ", show x, ">"]