address hlint and restyled suggestions

swarm-game · Jan 3, 2025 · f0dbb20 · f0dbb20
1 parent 54f9ee9
commit f0dbb20
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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