mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use a foldr

Browse source 
Should be faster here.
This commit is contained in:
Joey Hess 2011-09-28 02:46:54 -04:00
parent 1c9c9a0cee
commit d7d9e9aca0
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
PresenceLog.hs
View file

@ -26,7 +26,7 @@ module PresenceLog (
import Data.Time.Clock.POSIX import Data.Time.Clock.POSIX
import Data.Time import Data.Time
import System.Locale import System.Locale
import qualified Data.Map as Map import qualified Data.Map as M
import Control.Monad.State (liftIO) import Control.Monad.State (liftIO)
import Control.Applicative import Control.Applicative
@ -111,18 +111,18 @@ filterPresent = filter (\l -> InfoPresent == status l) . compactLog
{- Compacts a set of logs, returning a subset that contains the current {- Compacts a set of logs, returning a subset that contains the current
- status. -} - status. -}
compactLog :: [LogLine] -> [LogLine] compactLog :: [LogLine] -> [LogLine]
compactLog = Map.elems . foldl mapLog Map.empty compactLog = M.elems . foldr mapLog M.empty
type LogMap = Map.Map String LogLine type LogMap = M.Map String LogLine
{- Inserts a log into a map of logs, if the log has better (ie, newer) {- Inserts a log into a map of logs, if the log has better (ie, newer)
- information than the other logs in the map -} - information than the other logs in the map -}
mapLog :: LogMap -> LogLine -> LogMap mapLog :: LogLine -> LogMap -> LogMap
mapLog m l = mapLog l m =
if better if better
then Map.insert i l m then M.insert i l m
else m else m
where where
better = maybe True newer $ Map.lookup i m better = maybe True newer $ M.lookup i m
newer l' = date l' <= date l newer l' = date l' <= date l
i = info l i = info l