From c1154845443441260584e034faf27659e1949825 Mon Sep 17 00:00:00 2001 From: Jens Kadenbach Date: Wed, 7 Dec 2022 16:26:27 +0100 Subject: [PATCH] Day 7 Cleanup --- src/Day7.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/Day7.hs b/src/Day7.hs index a7d55d3..7f3cb58 100644 --- a/src/Day7.hs +++ b/src/Day7.hs @@ -55,9 +55,6 @@ toFiles ((FileListing name size):rest) = (name, size): toFiles rest toFiles (_:rest) = toFiles rest toFiles [] = [] -sizeThreshold :: Int -sizeThreshold = 100000 - calculateSize :: Directory -> Int calculateSize dir = sum (Map.elems (files dir)) + sum sizes where