From 230e0477a35f2e7548bf6287c5031c3c33425da8 Mon Sep 17 00:00:00 2001
From: shu <shu@lain.localdomain>
Date: Fri, 13 Dec 2019 19:35:17 +0100
Subject: [PATCH] Helpers: Maek lambda

---
 2019/day13/Helpers.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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 =