summaryrefslogtreecommitdiff
path: root/Logs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-12 22:27:55 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-12 22:27:55 -0400
commit406402220e50a6aea2e73c61693b0a93bfae9f38 (patch)
treeb8f3bfb9be7fc58d1bdf90b0de1883b50bee4cad /Logs
parent70aef104847247accc8da34e77c096672737a63f (diff)
fix metadata log simplifier and additional quickcheck tests
Diffstat (limited to 'Logs')
-rw-r--r--Logs/MetaData.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Logs/MetaData.hs b/Logs/MetaData.hs
index 6f7f4154a..153d8fa63 100644
--- a/Logs/MetaData.hs
+++ b/Logs/MetaData.hs
@@ -119,7 +119,7 @@ addMetaData k metadata = do
-
- So, the only simplication that is actually done is to throw out an
- old line when all the values in it have been overridden by lines that
- - came before
+ - came after.
-}
simplifyLog :: Log MetaData -> Log MetaData
simplifyLog s = case S.toDescList s of
@@ -128,7 +128,7 @@ simplifyLog s = case S.toDescList s of
where
go c _ [] = c
go c newer (l:ls)
- | older `hasUniqueMetaData` newer =
+ | hasUniqueMetaData newer older =
go (l:c) (unionMetaData older newer) ls
| otherwise = go c newer ls
where