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

Add ShowCode instances for A.Name.

Browse Source
This commit is contained in:
Adam Sampson 2008-03-22 00:42:00 +00:00
parent e23a12c71d
commit 8b5233ba47
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common/ShowCode.hs
View File

@ -203,6 +203,12 @@ formatCode fmt = chain (splitRegex (mkRegex "%") fmt) []
--Type-class instances follow for ShowOccam and ShowRain: --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 instance ShowOccam A.Type where
showOccamM A.Bool = tell ["BOOL"] showOccamM A.Bool = tell ["BOOL"]
showOccamM A.Byte = tell ["BYTE"] showOccamM A.Byte = tell ["BYTE"]