diff options
Diffstat (limited to 'Logs/Group.hs')
| -rw-r--r-- | Logs/Group.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Logs/Group.hs b/Logs/Group.hs index de0d1e598..a069edcdf 100644 --- a/Logs/Group.hs +++ b/Logs/Group.hs @@ -64,10 +64,10 @@ groupMapLoad = do makeGroupMap :: M.Map UUID (S.Set Group) -> GroupMap makeGroupMap byuuid = GroupMap byuuid bygroup - where - bygroup = M.fromListWith S.union $ - concat $ map explode $ M.toList byuuid - explode (u, s) = map (\g -> (g, S.singleton u)) (S.toList s) + where + bygroup = M.fromListWith S.union $ + concat $ map explode $ M.toList byuuid + explode (u, s) = map (\g -> (g, S.singleton u)) (S.toList s) {- If a repository is in exactly one standard group, returns it. -} getStandardGroup :: S.Set Group -> Maybe StandardGroup |