Restyled by fourmolu

swarm-game · Dec 28, 2024 · d174119 · d174119
1 parent d81be84
commit d174119
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/integration/Main.hs b/test/integration/Main.hs
@@ -505,7 +505,7 @@ testScenarioSolutions rs ui key =
         let msgs = g ^.. robotInfo . robotMap . traverse . robotLog . to logToText . traverse
         assertBool "Error message should mention tank treads but not treads" $
           not (any ("- treads" `T.isInfixOf`) msgs)
-          && (any ("- tank treads" `T.isInfixOf`) msgs)
+            && (any ("- tank treads" `T.isInfixOf`) msgs)
     ]
  where
   -- expectFailIf :: Bool -> String -> TestTree -> TestTree