diff --git a/src/swarm-topography/Swarm/Game/Scenario/Topography/Structure/Recognition/Prep.hs b/src/swarm-topography/Swarm/Game/Scenario/Topography/Structure/Recognition/Prep.hs index 84b6db93b..7f174dfbe 100644 --- a/src/swarm-topography/Swarm/Game/Scenario/Topography/Structure/Recognition/Prep.hs +++ b/src/swarm-topography/Swarm/Game/Scenario/Topography/Structure/Recognition/Prep.hs @@ -130,14 +130,14 @@ trimRow xs = , leftDrops = nullPrefixLength , rightDrops = nullSuffixLength } - where - (nullPrefixLength, remainingTail) = countDrops xs - (nullSuffixLength, remainingMiddleReversed) = countDrops $ reverse remainingTail - - countDrops s = - (length nulls, remainder) - where - (nulls, remainder) = span null s + where + (nullPrefixLength, remainingTail) = countDrops xs + (nullSuffixLength, remainingMiddleReversed) = countDrops $ reverse remainingTail + + countDrops s = + (length nulls, remainder) + where + (nulls, remainder) = span null s -- * Util