Added a dummy Show instance for UsageLabel

2008-05-30 16:41:08 +00:00 · 2008-05-30 16:41:08 +00:00 · 1a1e78a9c4
commit 1a1e78a9c4
parent 01e702acb2
1 changed files with 3 additions and 0 deletions
--- a/checks/UsageCheckUtils.hs
+++ b/checks/UsageCheckUtils.hs
@ -80,6 +80,9 @@ data UsageLabel = Usage
  ,nodeDecl :: Maybe Decl
  ,nodeVars :: Vars}

+instance Show UsageLabel where
+  show = const ""
+
 transformParItems :: (a -> b) -> ParItems a -> ParItems b
 transformParItems f (SeqItems xs) = SeqItems $ map f xs
 transformParItems f (ParItems ps) = ParItems $ map (transformParItems f) ps