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

Added a ShowOccam and ShowRain instance for lists of things

Browse Source
This commit is contained in:
Neil Brown 2008-03-20 16:34:11 +00:00
parent ecb82d13a8
commit a6452f93df
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
common/ShowCode.hs
View File

@ -544,6 +544,14 @@ instance ShowOccam A.Process where
instance ShowRain a where instance ShowRain a where
showRainM = const $ return () showRainM = const $ return ()
instance ShowOccam a => ShowOccam [a] where
showOccamM xs = tell ["["] >> sequence (intersperse (tell [", "]) $ map
showOccamM xs) >> tell ["]"]
instance ShowRain a => ShowRain [a] where
showRainM xs = tell ["["] >> sequence (intersperse (tell [", "]) $ map
showRainM xs) >> tell ["]"]
-- | Extends an existing (probably generic) function with cases for everything that has a specific ShowOccam and ShowRain instance -- | Extends an existing (probably generic) function with cases for everything that has a specific ShowOccam and ShowRain instance
-- This is a bit of manual wiring. Because we can't generically deduce whether or not -- This is a bit of manual wiring. Because we can't generically deduce whether or not
-- a given Data item has a showRain\/showOccam implementation (that I know of), I have -- a given Data item has a showRain\/showOccam implementation (that I know of), I have