From: Neil Smith Date: Sun, 8 Dec 2019 19:02:40 +0000 (+0000) Subject: Point-free tweak X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-19.git;a=commitdiff_plain;h=8a26938bdc252b56b78d267756c5a95aab97bf5f Point-free tweak --- 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)