day7: remove now superfluous list comprehension
This commit is contained in:
parent
86d4234631
commit
b29e31d614
|
@ -47,7 +47,7 @@ walk _ z = z
|
||||||
|
|
||||||
|
|
||||||
getDirSize :: IZipper -> Int
|
getDirSize :: IZipper -> Int
|
||||||
getDirSize ((Folder _ nodes),_) = sum [getSize node | node<-nodes]
|
getDirSize ((Folder _ nodes),_) = sum $ map getSize nodes
|
||||||
where getSize (File _ size) = size
|
where getSize (File _ size) = size
|
||||||
getSize folder = getDirSize (folder,[])
|
getSize folder = getDirSize (folder,[])
|
||||||
getDirSize _ = 0
|
getDirSize _ = 0
|
||||||
|
|
Loading…
Reference in New Issue
Block a user