chore(haskell): formatting

rasheedja · rasheedja · commit 75d0a9cf811c · 2026-04-03T16:52:03.000+01:00
diff --git a/src/Linear/Simplex/Solver/TwoPhase.hs b/src/Linear/Simplex/Solver/TwoPhase.hs
@@ -827,13 +827,13 @@ simplexPivot objective@(PivotObjective {variable = objectiveVar, function = obje
               dictEntertingRow
                 & #varMapSum
                   %~ ( \basicEquation ->
-                         -- uncurry
-                         M.insert
-                           leavingVariable
-                           (-1)
-                           (filterOutEnteringVarTerm basicEquation)
-                           & traverse
-                             %~ divideByNegatedEnteringVariableCoeff
+                        -- uncurry
+                        M.insert
+                          leavingVariable
+                          (-1)
+                          (filterOutEnteringVarTerm basicEquation)
+                          & traverse
+                            %~ divideByNegatedEnteringVariableCoeff
                      )
                 & #constant
                   %~ divideByNegatedEnteringVariableCoeff
