diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -1,2 +1,4 @@
 import Distribution.Simple
-main = defaultMain
+
+main :: IO ()
+main = defaultMainWithHooks simpleUserHooks
diff --git a/lame-tester.cabal b/lame-tester.cabal
--- a/lame-tester.cabal
+++ b/lame-tester.cabal
@@ -1,5 +1,5 @@
 Name:                lame-tester
-Version:             1.2
+Version:             1.2.1
 Cabal-version:       >=1.16.0
 License:             BSD3
 License-File:        LICENSE.txt
@@ -37,6 +37,6 @@
   build-depends:
     base        >= 4.6 && < 5,
     containers  >= 0.5,
-    lame-tester >= 1.1,
+    lame-tester >= 1.2,
     tasty       >= 0.10,
     tasty-hunit >= 0.9
diff --git a/src/Tester/Dialect.hs b/src/Tester/Dialect.hs
--- a/src/Tester/Dialect.hs
+++ b/src/Tester/Dialect.hs
@@ -33,7 +33,7 @@
   unbox cell = [cell]
 
 instance CellBox ToggleFlag where
-  unbox flag = unbox (ToggleCell flag)
+  unbox flag = unbox $ ToggleCell flag
 
 -- Example: [DontRun 0, Run 1, DontRun 2, Run 2, Run 3, DontRun 5, StackTrace]
 instance Ord FlagCell where
diff --git a/src/Tester/Suite.hs b/src/Tester/Suite.hs
--- a/src/Tester/Suite.hs
+++ b/src/Tester/Suite.hs
@@ -39,7 +39,7 @@
   mappend _                  _                  = mempty
 
 runTests :: FlagCells -> (Suite a b c) -> [TestResult]
-runTests c s@(Suite _ _ failsToStr _) = fmap (resultToTR failsToStr) (generateResults c s)
+runTests c s@(Suite _ _ failsToStr _) = fmap (resultToTR failsToStr) $ generateResults c s
 
 unsafeRunTests :: FlagCells -> (Suite a b c) -> [TestResult]
 unsafeRunTests c s@(Suite _ _ failsToStr succToStr) = seq (unsafePerformIO evilIO) testResults
@@ -51,7 +51,7 @@
 
 generateResults :: FlagCells -> (Suite a b c) -> [Result b c]
 generateResults cells (Suite testMap runTest _ _) =
-  cells |> (cellsToSettings >>> testNums >>> Set.toList >>> (fmap ((testMap!) >>> runTest)))
+  cells |> (cellsToSettings >>> testNums >>> Set.toList >>> (fmap $ (testMap!) >>> runTest))
 
 resultToTR :: (NonEmpty a -> String)-> Result a b -> TestResult
-resultToTR fToStr = bifoldMap (\nel -> TestFailure $ fToStr nel) (const TestSuccess)
+resultToTR fToStr = bifoldMap (fToStr >>> TestFailure) $ const TestSuccess