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