diff --git a/2022/day07/day07.hs b/2022/day07/day07.hs
index 2074174..4cb33c9 100644
--- a/2022/day07/day07.hs
+++ b/2022/day07/day07.hs
@@ -47,7 +47,7 @@ walk _ z = z
 
 
 getDirSize :: IZipper -> Int
-getDirSize ((Folder _ nodes),_) = sum [getSize node | node<-nodes]
+getDirSize ((Folder _ nodes),_) = sum $ map getSize nodes
     where getSize (File _ size) = size
           getSize folder = getDirSize (folder,[])
 getDirSize _ = 0