Removed debugging pos indicator
This commit is contained in:
parent
98bae7d203
commit
f7aefb1a54
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue