diff --git a/2019/day13/Helpers.hs b/2019/day13/Helpers.hs
index d8ba253..46e6820 100644
--- a/2019/day13/Helpers.hs
+++ b/2019/day13/Helpers.hs
@@ -24,8 +24,7 @@ getBounds m = (getMinX, getMinY, getMaxX, getMaxY)
     getMaxY = getFromMap maximum v2y
     getMinX = getFromMap minimum v2x
     getMinY = getFromMap minimum v2y
-    f f1 f2 k a result = f1 [f2 k, result]
-    getFromMap f1 f2 = M.foldrWithKey (f f1 f2) 0 m
+    getFromMap f1 f2 = M.foldrWithKey (\k _ result -> f1 [f2 k, result]) 0 m
 
 drawMap :: M.Map Integer Char -> M.Map (V2 Int) Integer -> String
 drawMap dict m =