Removed debugging pos indicator

This commit is contained in:
Ivy 2021-02-14 14:43:32 +01:00
parent 98bae7d203
commit f7aefb1a54
1 changed files with 1 additions and 1 deletions

View File

@ -17,6 +17,6 @@ dungeonToImg :: Dungeon -> Image
dungeonToImg = vertCat . map (string defAttr . concatMap show) . dungeonToLists
playerToImg :: Player -> Image
playerToImg p = (translateX px . translateY py $ char defAttr '@') <|> string defAttr (" (" ++ show px ++ "," ++ show py ++ ")")
playerToImg p = (translateX px . translateY py $ char defAttr '@')
where px = p ^. pos . _1
py = p ^. pos . _2