From 406402220e50a6aea2e73c61693b0a93bfae9f38 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 12 Feb 2014 22:27:55 -0400 Subject: fix metadata log simplifier and additional quickcheck tests --- Logs/MetaData.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Logs/MetaData.hs') 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 -- cgit v1.2.3