From e66ce1f810bb147c5eb2828cdecc43ef37848817 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sun, 1 Jun 2008 19:25:33 +0000 Subject: [PATCH] Added a line to ShowCode for dereferenced variables --- common/ShowCode.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/common/ShowCode.hs b/common/ShowCode.hs index 1e3bc27..eab30d8 100644 --- a/common/ShowCode.hs +++ b/common/ShowCode.hs @@ -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