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