From f0dbb20c6050526774f1faa74b508e016914ee04 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Fri, 3 Jan 2025 10:29:18 -0600
Subject: [PATCH] address hlint and restyled suggestions

---
 src/swarm-engine/Swarm/Game/Step/Const.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/swarm-engine/Swarm/Game/Step/Const.hs b/src/swarm-engine/Swarm/Game/Step/Const.hs
index fea7ab263..cb58eb443 100644
--- a/src/swarm-engine/Swarm/Game/Step/Const.hs
+++ b/src/swarm-engine/Swarm/Game/Step/Const.hs
@@ -1227,14 +1227,14 @@ execConst runChildProg c vs s k = do
     Erase -> case vs of
       [VText printableName] -> do
         toErase <- ensureItem printableName "erase"
-        let (baseName, printedMatter) = T.break (==':') printableName
+        let (baseName, printedMatter) = T.break (== ':') printableName
         em <- use $ landscape . terrainAndEntities . entityMap
         erased <-
           lookupEntityName baseName em
             `isJustOrFail` ["I've never heard of", indefiniteQ baseName <> "."]
         (erased `hasProperty` Printable)
           `holdsOrFail` ["You cannot erase", indefinite baseName <> "!"]
-        (not $ T.null printedMatter)
+        not (T.null printedMatter)
           `holdsOrFail` ["That is already blank!"]
 
         robotInventory %= delete toErase