From 1a1e78a9c41e829658b15f928f3007ed4a4ae116 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Fri, 30 May 2008 16:41:08 +0000
Subject: [PATCH] Added a dummy Show instance for UsageLabel

---
 checks/UsageCheckUtils.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/checks/UsageCheckUtils.hs b/checks/UsageCheckUtils.hs
index ea42752..32498c9 100644
--- 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