X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-19.git;a=blobdiff_plain;f=advent07%2Fsrc%2Fadvent07.hs;fp=advent07%2Fsrc%2Fadvent07.hs;h=27c7875de36273fcadbf409b4ffb29e626240b2c;hp=6e4275f239df471f9d6d1eb37b90fbeba46cec6e;hb=8a26938bdc252b56b78d267756c5a95aab97bf5f;hpb=ba55ea7141617791a8ef0c37681c9ff8e823b0e3

diff --git a/advent07/src/advent07.hs b/advent07/src/advent07.hs
index 6e4275f..27c7875 100644
--- 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)