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