Point-free tweak
authorNeil Smith <neil.git@njae.me.uk>
Sun, 8 Dec 2019 19:02:40 +0000 (19:02 +0000)
committerNeil Smith <neil.git@njae.me.uk>
Sun, 8 Dec 2019 19:02:40 +0000 (19:02 +0000)
advent07/src/advent07.hs

index 6e4275f..27c7875 100644 (file)
@@ -120,7 +120,7 @@ emTrace e = intercalate " ; " terms
 
 
 finished :: Pipeline -> Bool
-finished pipeline = M.null $ runnableMachines pipeline
+finished = M.null . runnableMachines
 
 runnableMachines :: Pipeline -> Pipeline
 runnableMachines = M.filter (\e -> _executionState e == Runnable)