sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 11:14:51 +09:00
Code Issues Activity

Fix projects field type

Browse source
This commit is contained in:
fr33domlover 2016-02-01 14:28:12 +00:00
parent 81f8dba101
commit b44dc7b456
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis.hs
View file

@ -125,7 +125,7 @@ data VervisEnv = VervisEnv
data VervisState = VervisState data VervisState = VervisState
{ vsUsers :: HashMap UserID User { vsUsers :: HashMap UserID User
, vsGroups :: HashMap GroupID Group , 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 } newtype Vervis a = Vervis { unVervis :: RWST VervisEnv () VervisState IO a }