From 24b10deb33e6ff05f1d46be994ba64801a5faa8f Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 5 Jun 2008 20:17:25 +0000
Subject: [PATCH] Realised that ParItems is a functor, and therefore made it an
 instance of such

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

diff --git a/checks/UsageCheckUtils.hs b/checks/UsageCheckUtils.hs
index bb2484c..998e592 100644
--- a/checks/UsageCheckUtils.hs
+++ b/checks/UsageCheckUtils.hs
@@ -81,6 +81,9 @@ transformParItems f (SeqItems xs) = SeqItems $ map f xs
 transformParItems f (ParItems ps) = ParItems $ map (transformParItems f) ps
 transformParItems f (RepParItem r p) = RepParItem r (transformParItems f p)
 
+instance Functor ParItems where
+  fmap = transformParItems
+
 -- Gets all the items inside a ParItems and returns them in a flat list.
 flattenParItems :: ParItems a -> [a]
 flattenParItems (SeqItems xs) = xs