scoreGroup :: M.Map Integer UserScore -> ((T.Text, Integer), [(T.Text, Integer)]) -> GroupScore
scoreGroup scoreMap ((myname, gid'), members) = GroupScore gid' myname $
    mapMaybe (flip M.lookup scoreMap . snd) members
scoreGroup :: M.Map Integer UserScore -> ((T.Text, Integer), [(T.Text, Integer)]) -> GroupScore
scoreGroup scoreMap ((myname, gid'), members) = GroupScore gid' myname $
    mapMaybe (flip M.lookup scoreMap . snd) members
scoreGroup scoreMap ((myname, gid'), members) = GroupScore gid' myname $
    mapMaybe (flip M.lookup scoreMap . snd) members