Add issue references

swarm-game · Mar 8, 2023 · 0d565dc · 0d565dc
1 parent a1c5c69
commit 0d565dc
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/src/Swarm/Game/Scenario/WorldDescription.hs b/src/Swarm/Game/Scenario/WorldDescription.hs
@@ -173,7 +173,7 @@ prepForJson (WorldPalette suggestedPalette) cellGrid =
 
   unassignedCharacters :: Set.Set Char
   unassignedCharacters =
-    -- TODO: How can we efficiently use the Unicode categories (in "Data.Char")
+    -- TODO (#1149): How can we efficiently use the Unicode categories (in "Data.Char")
     -- to generate this pool?
     Set.difference genericCharacterPool $
       Set.fromList $

diff --git a/src/Swarm/TUI/Editor/Controller.hs b/src/Swarm/TUI/Editor/Controller.hs
@@ -73,7 +73,7 @@ handleCtrlLeftClick mouseLoc = do
     let getSelected x = snd <$> BL.listSelectedElement x
         maybeTerrainType = getSelected $ worldEditor ^. terrainList
         maybeEntityPaint = getSelected $ worldEditor ^. entityPaintList
-    -- TODO: Use hoistMaybe when available
+    -- TODO (#1151): Use hoistMaybe when available
     terrain <- MaybeT . pure $ maybeTerrainType
     mouseCoords <- MaybeT $ Brick.zoom gameState $ mouseLocToWorldCoords mouseLoc
     uiState . uiWorldEditor . paintedTerrain %= M.insert mouseCoords (terrain, maybeEntityPaint)
@@ -140,7 +140,7 @@ updateAreaBounds = \case
       UpperLeftPending -> do
         uiState . uiWorldEditor . editingBounds . boundsSelectionStep .= LowerRightPending mouseCoords
         return False
-      -- TODO: Validate that the lower-right click is below and to the right of the top-left coord
+      -- TODO (#1152): Validate that the lower-right click is below and to the right of the top-left coord
       LowerRightPending upperLeftMouseCoords -> do
         uiState . uiWorldEditor . editingBounds . boundsRect
           .= Just (upperLeftMouseCoords, mouseCoords)
@@ -217,7 +217,7 @@ makeSuggestedPalette maybeOriginalScenario cellGrid =
       let cell = Cell terrain (Just $ EntityFacade eName eDisplay) []
       return ((terrain, Just eName), (T.singleton displayChar, cell))
 
-  -- TODO: Filter out terrain-only palette entries that aren't actually
+  -- TODO (#1153): Filter out terrain-only palette entries that aren't actually
   -- used in the map.
   terrainOnlyPalette :: Map TerrainEntityNamePair (T.Text, CellPaintDisplay)
   terrainOnlyPalette = M.fromList $ map f U.listEnums

diff --git a/src/Swarm/TUI/Editor/View.hs b/src/Swarm/TUI/Editor/View.hs
@@ -56,7 +56,7 @@ drawWorldEditor toplevelFocusRing uis =
   worldEditor = uis ^. uiWorldEditor
   maybeAreaBounds = worldEditor ^. editingBounds . boundsRect
 
-  -- TODO: Use withFocusRing?
+  -- TODO (#1150): Use withFocusRing?
   mkFormControl n w =
     clickable n $ transformation w
    where