Commit 4ab6a752 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov

Revert "-Wall police"

This reverts commit 68d9077c.
parent 1552c58d
......@@ -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)
]
......
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