Point-free tweak

[advent-of-code-19.git] / advent07 / src / advent07.hs

diff --git a/advent07/src/advent07.hs b/advent07/src/advent07.hs
index 6e4275f239df471f9d6d1eb37b90fbeba46cec6e..27c7875de36273fcadbf409b4ffb29e626240b2c 100644 (file)
--- a/advent07/src/advent07.hs
+++ b/advent07/src/advent07.hs
@@ -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)