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 }