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

Revert "-Wall police"

This reverts commit 68d9077c.
parent 1552c58d
...@@ -76,12 +76,12 @@ ppSourceRepo repo = ...@@ -76,12 +76,12 @@ ppSourceRepo repo =
ppFields :: [FieldDescr a] -> a -> Doc ppFields :: [FieldDescr a] -> a -> Doc
ppFields fields x = ppFields fields x =
vcat [ (getter x) | FieldDescr _ getter _ <- fields ] vcat [ (getter x) | FieldDescr name getter _ <- fields ]
ppDiffFields :: [FieldDescr a] -> a -> a -> Doc ppDiffFields :: [FieldDescr a] -> a -> a -> Doc
ppDiffFields fields x y = ppDiffFields fields x y =
vcat [ (getter x) vcat [ (getter x)
| FieldDescr _ getter _ <- fields | FieldDescr name getter _ <- fields
, render (getter x) /= render (getter y) , render (getter x) /= render (getter y)
] ]
......
Supports Markdown
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