From 8b5233ba47e2f68a234a03a76af808f9d59aad31 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Sat, 22 Mar 2008 00:42:00 +0000 Subject: [PATCH] Add ShowCode instances for A.Name. --- common/ShowCode.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/common/ShowCode.hs b/common/ShowCode.hs index 0a443f7..636cf02 100644 --- a/common/ShowCode.hs +++ b/common/ShowCode.hs @@ -203,6 +203,12 @@ formatCode fmt = chain (splitRegex (mkRegex "%") fmt) [] --Type-class instances follow for ShowOccam and ShowRain: +instance ShowOccam A.Name where + showOccamM n = showName n + +instance ShowRain A.Name where + showRainM n = showName n + instance ShowOccam A.Type where showOccamM A.Bool = tell ["BOOL"] showOccamM A.Byte = tell ["BYTE"]