Day 7 Cleanup

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