diff options
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/MetaData.hs | 4 |
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 |