Day 7 Cleanup

src/Day7.hs

 toFiles (_:rest) = toFiles rest
 toFiles [] = []
 
-sizeThreshold :: Int
-sizeThreshold = 100000
-
 calculateSize :: Directory -> Int
 calculateSize dir = sum (Map.elems (files dir)) + sum sizes
   where