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

Improved the Show instance for UsageLabel

Browse Source
This commit is contained in:
Neil Brown 2008-11-12 18:50:25 +00:00
parent 2a15f4ef5f
commit 44e2699089
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
checks/UsageCheckUtils.hs
View File

@ -77,7 +77,7 @@ data UsageLabel = Usage
} }
instance Show UsageLabel where instance Show UsageLabel where
show x = "Vars{" ++ show (nodeVars x) ++ "}" show x = "Usage (Decl{" ++ show (nodeDecl x) ++ "} Vars{" ++ show (nodeVars x) ++ "}"
transformParItems :: (a -> b) -> ParItems a -> ParItems b transformParItems :: (a -> b) -> ParItems a -> ParItems b
transformParItems f (SeqItems xs) = SeqItems $ map f xs transformParItems f (SeqItems xs) = SeqItems $ map f xs