buildEmptyBoardMap :: Activity -> BoardMap
buildEmptyBoardMap activity =
    let heroes = activity^.activityGame.gameHeroes
        buildEmptyHeroBoardMap hero =
          pathDijkstra (dijkstra (adjacentEmpty activity start) manhattan start)
          where
            start = hero^.heroPos
        makeEmptyHeroBoardMap hero@(Hero {_heroId = hId}) = (hId, buildEmptyHeroBoardMap hero)
    in M.fromList $ parMap rpar makeEmptyHeroBoardMap heroes
buildEmptyBoardMap :: Activity -> BoardMap
buildEmptyBoardMap activity =
    let heroes = activity^.activityGame.gameHeroes
        buildEmptyHeroBoardMap hero =
          pathDijkstra (dijkstra (adjacentEmpty activity start) manhattan start)
          where
            start = hero^.heroPos
        makeEmptyHeroBoardMap hero@(Hero {_heroId = hId}) = (hId, buildEmptyHeroBoardMap hero)
    in M.fromList $ parMap rpar makeEmptyHeroBoardMap heroes
buildEmptyBoardMap activity =
    let heroes = activity^.activityGame.gameHeroes
        buildEmptyHeroBoardMap hero =
          pathDijkstra (dijkstra (adjacentEmpty activity start) manhattan start)
          where
            start = hero^.heroPos
        makeEmptyHeroBoardMap hero@(Hero {_heroId = hId}) = (hId, buildEmptyHeroBoardMap hero)
    in M.fromList $ parMap rpar makeEmptyHeroBoardMap heroes