Revert "-Wall police"

This reverts commit 68d9077c.

Revert "-Wall police"
This reverts commit 68d9077c.
4ab6a752 · Mikhail Glushenkov · 1552c58d · 4ab6a752
Commit 4ab6a752 authored Apr 10, 2014 by Mikhail Glushenkov
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Cabal/Distribution/PackageDescription/PrettyPrint.hs Cabal/Distribution/PackageDescription/PrettyPrint.hs +2 -2

No files found.
--- a/Cabal/Distribution/PackageDescription/PrettyPrint.hs
+++ b/Cabal/Distribution/PackageDescription/PrettyPrint.hs
@@ -76,12 +76,12 @@ ppSourceRepo repo                        =

 ppFields :: [FieldDescr a] -> a -> Doc
 ppFields fields x                        =
-    vcat [ (getter x) | FieldDescr _ getter _ <- fields ]
+    vcat [ (getter x) | FieldDescr name getter _ <- fields ]

 ppDiffFields :: [FieldDescr a] -> a -> a -> Doc
 ppDiffFields fields x y                  =
    vcat [ (getter x)
-         | FieldDescr _ getter _ <- fields
+         | FieldDescr name getter _ <- fields
         , render (getter x) /= render (getter y)
         ]