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