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

Added a dummy Show instance for UsageLabel

Browse Source
This commit is contained in:
Neil Brown 2008-05-30 16:41:08 +00:00
parent 01e702acb2
commit 1a1e78a9c4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
checks/UsageCheckUtils.hs
View File

@ -80,6 +80,9 @@ data UsageLabel = Usage
,nodeDecl :: Maybe Decl ,nodeDecl :: Maybe Decl
,nodeVars :: Vars} ,nodeVars :: Vars}
instance Show UsageLabel where
show = const ""
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
transformParItems f (ParItems ps) = ParItems $ map (transformParItems f) ps transformParItems f (ParItems ps) = ParItems $ map (transformParItems f) ps