From 5cac755edf93716c42eb027bb1714b2c970f10f4 Mon Sep 17 00:00:00 2001
From: Mikhail Glushenkov <mikhail.glushenkov@gmail.com>
Date: Wed, 18 Mar 2015 14:30:13 +0100
Subject: [PATCH] -Wall police.
---
cabal-install/tests/PackageTests/Exec/Check.hs | 3 +++
.../tests/UnitTests/Distribution/Client/UserConfig.hs | 3 +++
2 files changed, 6 insertions(+)
diff --git a/cabal-install/tests/PackageTests/Exec/Check.hs b/cabal-install/tests/PackageTests/Exec/Check.hs
index 03eb948f69..4e01272013 100644
--- a/cabal-install/tests/PackageTests/Exec/Check.hs
+++ b/cabal-install/tests/PackageTests/Exec/Check.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
module PackageTests.Exec.Check
( tests
) where
@@ -9,7 +10,9 @@ import Test.Framework as TF (Test)
import Test.Framework.Providers.HUnit (testCase)
import Test.HUnit (assertBool)
+#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
+#endif
import Control.Monad (when)
import Data.List (intercalate, isInfixOf)
import System.FilePath ((</>))
diff --git a/cabal-install/tests/UnitTests/Distribution/Client/UserConfig.hs b/cabal-install/tests/UnitTests/Distribution/Client/UserConfig.hs
index 032ebabbeb..286172c40e 100644
--- a/cabal-install/tests/UnitTests/Distribution/Client/UserConfig.hs
+++ b/cabal-install/tests/UnitTests/Distribution/Client/UserConfig.hs
@@ -1,10 +1,13 @@
+{-# LANGUAGE CPP #-}
module UnitTests.Distribution.Client.UserConfig
( tests
) where
import Control.Exception (bracket)
import Data.List (sort, nub)
+#if !MIN_VERSION_base(4,8,0)
import Data.Monoid
+#endif
import System.Directory (getCurrentDirectory, removeDirectoryRecursive, createDirectoryIfMissing)
import System.FilePath (takeDirectory)
--
GitLab