diff --git a/examples/Example.hs b/examples/Example.hs
index 9279f0a..e535d1f 100644
--- a/examples/Example.hs
+++ b/examples/Example.hs
@@ -36,5 +36,5 @@ tests' = test [ "test1" ~: "(foo 3)" ~: (1,2) ~=? (foo 3),
                               partB y @? "(partB " ++ show y ++ ") failed" ]
 
 main :: IO Counts
-main = do runTestTT tests
+main = do _ <- runTestTT tests
           runTestTT tests'