clean code

UnkindPartition · Jul 29, 2023 · 8043c0c · andreasabel · Oct 20, 2023 · coot
1 parent 7cb61b6
commit 8043c0c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/core/Test/Tasty/Ingredients/ConsoleReporter.hs b/core/Test/Tasty/Ingredients/ConsoleReporter.hs
@@ -77,10 +77,10 @@ import Data.Foldable (foldMap)
 -- @since 0.12
 data TestOutput
   = PrintTest
-      {- test name         -} String
-      {- print test name   -} (IO ())
+      {- test name           -} String
+      {- print test name     -} (IO ())
       {- print test progress -} (Progress -> IO ())
-      {- print test result -} (Result -> IO ())
+      {- print test result   -} (Result -> IO ())
       -- ^ Name of a test, an action that prints the test name, and an action
       -- that renders the result of the action.
       --
@@ -270,7 +270,8 @@ consoleOutput toutput smap =
       , Any True)
     foldHeading _name printHeading (printBody, Any nonempty) =
       ( Traversal $ do
-          when nonempty $ do printHeading :: IO (); getTraversal printBody
+          when nonempty $ printHeading
+          getTraversal printBody
       , Any nonempty
       )
 

diff --git a/core/Test/Tasty/Run.hs b/core/Test/Tasty/Run.hs
@@ -112,7 +112,7 @@ executeTest
   -> Seq Finalizer -- ^ finalizers (to be executed in this order)
   -> IO ()
 executeTest action statusVar timeoutOpt inits fins = mask $ \restore -> do
-  resultOrExn <- try $ restore $ do
+  resultOrExn <- try . restore $ do
     -- N.B. this can (re-)throw an exception. It's okay. By design, the
     -- actual test will not be run, then. We still run all the
     -- finalizers.