Skip to content

GitLab

Commit 68d9077c authored by tibbe's avatar tibbe
Browse files
Options

-Wall police

parent 0038d05a
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
Cabal/Distribution/PackageDescription/PrettyPrint.hs
View file @ 68d9077c
......@@ -76,12 +76,12 @@ ppSourceRepo repo =
ppFields :: [FieldDescr a] -> a -> Doc
ppFields fields x =
vcat [ (getter x) | FieldDescr name getter _ <- fields ]
vcat [ (getter x) | FieldDescr _ getter _ <- fields ]
ppDiffFields :: [FieldDescr a] -> a -> a -> Doc
ppDiffFields fields x y =
vcat [ (getter x)
| FieldDescr name getter _ <- fields
| FieldDescr _ getter _ <- fields
, render (getter x) /= render (getter y)
]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment