Skip to content
Snippets Groups Projects
Commit 66f6a4f0 authored by Lennart Kolmodin's avatar Lennart Kolmodin
Browse files

Rename QA function for PackageDescription

parent dbf43587
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment