From b44dc7b4562a7c02a0e6c06740e27c3c559be13d Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Mon, 1 Feb 2016 14:28:12 +0000
Subject: [PATCH] Fix projects field type

---
 src/Vervis.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Vervis.hs b/src/Vervis.hs
index e6295ef..fda0d59 100644
--- a/src/Vervis.hs
+++ b/src/Vervis.hs
@@ -125,7 +125,7 @@ data VervisEnv = VervisEnv
 data VervisState = VervisState
     { vsUsers    :: HashMap UserID User
     , vsGroups   :: HashMap GroupID Group
-    , vsProjects :: HashMap ProjID Project
+    , vsProjects :: HashMap (Either UserID GroupID) (HashMap ProjID Project)
     }
 
 newtype Vervis a = Vervis { unVervis :: RWST VervisEnv () VervisState IO a }