Commit 68d9077c authored by tibbe's avatar tibbe

-Wall police

parent 0038d05a
......@@ -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