From f7aefb1a54d823a180a414ae5c37750c9e97e21f Mon Sep 17 00:00:00 2001 From: Ivy Date: Sun, 14 Feb 2021 14:43:32 +0100 Subject: [PATCH] Removed debugging pos indicator --- src/Rendering.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Rendering.hs b/src/Rendering.hs index d6e3d5f..025dd7c 100644 --- a/src/Rendering.hs +++ b/src/Rendering.hs @@ -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