getGroups :: Board -> Set.Set Group
getGroups board = Set.map fromJust
                . Set.filter isJust
                . Set.map (groupFrom board)
                $ allPositions board
getGroups :: Board -> Set.Set Group
getGroups board = Set.map fromJust
                . Set.filter isJust
                . Set.map (groupFrom board)
                $ allPositions board
getGroups board = Set.map fromJust
                . Set.filter isJust
                . Set.map (groupFrom board)
                $ allPositions board