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

Improved the Rain support in ShowCode a little

Browse Source
This commit is contained in:
Neil Brown 2008-06-01 17:58:40 +00:00
parent 4b6fa48cd3
commit 969c04d42b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
common/ShowCode.hs
View File

@ -583,6 +583,9 @@ instance ShowOccam A.ExpressionList where
showOccamM (A.ExpressionList _ es) = showWithCommas es showOccamM (A.ExpressionList _ es) = showWithCommas es
--TODO functioncalllist --TODO functioncalllist
instance ShowRain A.ExpressionList where
showRainM (A.ExpressionList _ [e]) = showRainM e
outerOccam :: (Data a, ShowOccam a) => String -> A.Structured a -> CodeWriter () outerOccam :: (Data a, ShowOccam a) => String -> A.Structured a -> CodeWriter ()
outerOccam keyword (A.Rep _ rep str) outerOccam keyword (A.Rep _ rep str)
= do showOccamLine (tell [keyword] >> showOccamM rep) = do showOccamLine (tell [keyword] >> showOccamM rep)
@ -684,8 +687,8 @@ instance ShowRain A.Replicator where
--TEMP: --TEMP:
instance ShowRain a where instance Data a => ShowRain a where
showRainM = const $ tell ["$"] showRainM = tell . singleton . gshow
instance ShowOccam a => ShowOccam [a] where instance ShowOccam a => ShowOccam [a] where
showOccamM xs = tell ["["] >> sequence (intersperse (tell [", "]) $ map showOccamM xs = tell ["["] >> sequence (intersperse (tell [", "]) $ map