From 66f6a4f039aa8a77903bd772b3b97d2b5be334bd Mon Sep 17 00:00:00 2001
From: Lennart Kolmodin <kolmodin@gentoo.org>
Date: Thu, 17 Jan 2008 23:04:39 +0000
Subject: [PATCH] Rename QA function for PackageDescription
---
Distribution/PackageDescription/QA.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/Distribution/PackageDescription/QA.hs b/Distribution/PackageDescription/QA.hs
index 6f391de815..0d14f96e22 100644
--- a/Distribution/PackageDescription/QA.hs
+++ b/Distribution/PackageDescription/QA.hs
@@ -42,7 +42,7 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -}
module Distribution.PackageDescription.QA (
-- * Quality Assurance
- qualityAssurePackage
+ qaCheckPackage
) where
import Control.Monad(when,unless)
@@ -57,8 +57,8 @@ import Distribution.PackageDescription
-- ------------------------------------------------------------
-- |Quality Assurance for package descriptions.
-qualityAssurePackage :: PackageDescription -> IO [String]
-qualityAssurePackage pkg_descr = fmap fst . runQA $ do
+qaCheckPackage :: PackageDescription -> IO [String]
+qaCheckPackage pkg_descr = fmap fst . runQA $ do
flip mapM_ ghc_options $ \ flags -> do
let has_Wall = "-Wall" `elem` flags
--
GitLab