Removing redundant code

Author: ptkato

cabal-install/tests/UnitTests.hs

@@ -28,7 +28,6 @@ import qualified UnitTests.Distribution.Client.Get
 main :: IO ()
 main = do
   initTests <- UnitTests.Distribution.Client.Init.tests
-  configTests <- UnitTests.Distribution.Client.Configure.tests
   defaultMain $ testGroup "Unit Tests"
     [ testGroup "UnitTests.Distribution.Solver.Modular.Builder"
           UnitTests.Distribution.Solver.Modular.Builder.tests
@@ -42,7 +41,7 @@ main = do
     , testGroup "UnitTests.Distribution.Client.Glob"
           UnitTests.Distribution.Client.Glob.tests
     , testGroup "UnitTests.Distribution.Client.Configure"
-        configTests
+        UnitTests.Distribution.Client.Configure.tests
     , testGroup "Distribution.Client.GZipUtils"
         UnitTests.Distribution.Client.GZipUtils.tests
     , testGroup "Distribution.Client.Init"

cabal-install/tests/UnitTests/Distribution/Client/Configure.hs

@@ -15,10 +15,8 @@ import Distribution.Client.ProjectFlags
 import Distribution.Simple
 import Distribution.Simple.Flag
 
-tests :: IO [TestTree]
-tests = return
-    [ configureTests
-    ]
+tests :: [TestTree]
+tests = [ configureTests ]
 
 configureTests :: TestTree
 configureTests = testGroup "Configure tests"