Remove char arg

swarm-game · Dec 12, 2023 · 3d0fc2d · 3d0fc2d
1 parent bc49876
commit 3d0fc2d
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/src/Swarm/Game/Display.hs b/src/Swarm/Game/Display.hs
@@ -177,9 +177,9 @@ hidden = (defaultChar .~ '?') . (curOrientation .~ Nothing)
 
 -- | The default way to display some terrain using the given character
 --   and attribute, with priority 0.
-defaultTerrainDisplay :: Char -> Attribute -> Display
-defaultTerrainDisplay c attr =
-  defaultEntityDisplay c
+defaultTerrainDisplay :: Attribute -> Display
+defaultTerrainDisplay attr =
+  defaultEntityDisplay ' '
     & displayPriority .~ 0
     & displayAttr .~ attr
 

diff --git a/src/Swarm/Game/Terrain.hs b/src/Swarm/Game/Terrain.hs
@@ -59,9 +59,9 @@ getTerrainWord = T.toLower . T.pack . init . show
 terrainMap :: Map TerrainType Display
 terrainMap =
   M.fromList
-    [ (StoneT, defaultTerrainDisplay ' ' (ATerrain "stone"))
-    , (DirtT, defaultTerrainDisplay ' ' (ATerrain "dirt"))
-    , (GrassT, defaultTerrainDisplay ' ' (ATerrain "grass"))
-    , (IceT, defaultTerrainDisplay ' ' (ATerrain "ice"))
-    , (BlankT, defaultTerrainDisplay ' ' ADefault)
+    [ (StoneT, defaultTerrainDisplay (ATerrain "stone"))
+    , (DirtT, defaultTerrainDisplay (ATerrain "dirt"))
+    , (GrassT, defaultTerrainDisplay (ATerrain "grass"))
+    , (IceT, defaultTerrainDisplay (ATerrain "ice"))
+    , (BlankT, defaultTerrainDisplay ADefault)
     ]