From ab39433a9523f9f8a9f8c561a46b38863c0f541d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 2 Oct 2012 13:45:30 -0400
Subject: status: display repository groups

---
 Types/Group.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'Types')

diff --git a/Types/Group.hs b/Types/Group.hs
index dd06cbfd7..564e75d0f 100644
--- a/Types/Group.hs
+++ b/Types/Group.hs
@@ -7,7 +7,7 @@
 
 module Types.Group (
 	Group,
-	GroupMap
+	GroupMap(..)
 ) where
 
 import Types.UUID
@@ -17,4 +17,7 @@ import qualified Data.Set as S
 
 type Group = String
 
-type GroupMap = M.Map UUID (S.Set Group)
+data GroupMap = GroupMap
+	{ groupsByUUID :: M.Map UUID (S.Set Group)
+	, uuidsByGroup :: M.Map Group (S.Set UUID)
+	}
-- 
cgit v1.2.3