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

Added a line to ShowCode for dereferenced variables

Browse Source
This commit is contained in:
Neil Brown 2008-06-01 19:25:33 +00:00
parent 969c04d42b
commit e66ce1f810
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
common/ShowCode.hs
View File

@ -344,6 +344,7 @@ instance ShowOccam A.Variable where
showOccamM (A.DirectedVariable _ A.DirUnknown v) = showOccamM v
showOccamM (A.DirectedVariable _ A.DirInput v) = showOccamM v >> tell ["?"]
showOccamM (A.DirectedVariable _ A.DirOutput v) = showOccamM v >> tell ["!"]
showOccamM (A.DerefVariable _ v) = tell ["DEREF "] >> showOccamM v
instance ShowRain A.Variable where
showRainM (A.Variable _ n) = showName n