From 2ed477f33ede15cd552e9e5200c7654c728714af Mon Sep 17 00:00:00 2001 From: "Restyled.io" Date: Mon, 20 Jun 2022 23:15:13 +0000 Subject: [PATCH] Restyled by fourmolu --- src/Swarm/Game/Recipe.hs | 4 ++-- src/Swarm/Game/Step.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Swarm/Game/Recipe.hs b/src/Swarm/Game/Recipe.hs index c47cdbde3..834ea106a 100644 --- a/src/Swarm/Game/Recipe.hs +++ b/src/Swarm/Game/Recipe.hs @@ -192,8 +192,8 @@ missingIngredientsFor (inv, ins) (Recipe inps _ reqs _ _) = knowsIngredientsFor :: (Inventory, Inventory) -> Recipe Entity -> Bool knowsIngredientsFor (inv, ins) recipe = knowsAll inv (recipe ^. recipeInputs) && knowsAll ins (recipe ^. recipeRequirements) - where - knowsAll xs = all (E.contains xs . snd) + where + knowsAll xs = all (E.contains xs . snd) -- | Try to make a recipe, deleting the recipe's inputs from the -- inventory. Return either a description of which items are diff --git a/src/Swarm/Game/Step.hs b/src/Swarm/Game/Step.hs index 535021009..013c1f369 100644 --- a/src/Swarm/Game/Step.hs +++ b/src/Swarm/Game/Step.hs @@ -1371,7 +1371,7 @@ execConst c vs s k = do [VBool b] -> return $ Out (VBool (not b)) s k _ -> badConst Neg -> case vs of - [VInt n] -> return $ Out (VInt (-n)) s k + [VInt n] -> return $ Out (VInt (- n)) s k _ -> badConst Eq -> returnEvalCmp Neq -> returnEvalCmp