From 8a26938bdc252b56b78d267756c5a95aab97bf5f Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Sun, 8 Dec 2019 19:02:40 +0000 Subject: [PATCH] Point-free tweak --- advent07/src/advent07.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.34.1