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