Fix to the logger

1 files changed, 4 insertions, 4 deletions

diff --git a/src/VeriFuzz/Sim/Reduce.hs b/src/VeriFuzz/Sim/Reduce.hs
index bed1169..5684ed5 100644
--- a/src/VeriFuzz/Sim/Reduce.hs
+++ b/src/VeriFuzz/Sim/Reduce.hs
@@ -133,9 +133,9 @@ reduce_
 reduce_ repl eval src = do
     replAnswer <- sequenceA $ evalIfNotEmpty <$> replacement
     case (replacement, replAnswer) of
-        (Single s, Single False) -> runIf s
-        (Dual _ l, Dual True False) -> runIf l
-        (Dual r _, Dual False True) -> runIf r
+        (Single s, Single False    ) -> runIf s
+        (Dual _ l, Dual True False ) -> runIf l
+        (Dual r _, Dual False True ) -> runIf r
         (Dual r l, Dual False False) -> do
             lreduced <- runIf l
             rreduced <- runIf r
@@ -143,7 +143,7 @@ reduce_ repl eval src = do
                 then return lreduced
                 else return rreduced
         (None, None) -> return src
-        _ -> return src
+        _            -> return src
   where
     replacement = repl src
     runIf s = if s /= src then reduce eval s else return s