X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=blobdiff_plain;f=test%2FTestSuite.hs;h=c93bc62139bb758f694d13b69221e4f5d463a41e;hp=7dd088001cf81e1459cf41e7965f9bb2b175612e;hb=34f7ff7e07e3f3a0e53225b1efeeb6275c67c674;hpb=407e2910b4ceb5f4824ffde093085eaa1fa93e7e

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 7dd0880..c93bc62 100644
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -1,17 +1,9 @@
-{-# LANGUAGE NoMonomorphismRestriction #-}
-import Data.Monoid (mempty)
-import Test.Framework (
-  Test,
-  defaultMainWithOpts,
-  )
-import Test.Framework.Runners.Options
+import Test.Tasty ( TestTree, defaultMain, testGroup )
 
-import EmailAddress (email_address_tests)
+import EmailAddress ( email_address_tests )
 
-tests :: [Test.Framework.Test]
-tests = [ email_address_tests ]
+tests :: TestTree
+tests = testGroup "All Tests" [ email_address_tests ]
 
 main :: IO ()
-main = do
-  let empty_runner_opts = mempty :: RunnerOptions
-  defaultMainWithOpts tests empty_runner_opts
+main = defaultMain tests