diff options
Diffstat (limited to 'PresenceLog.hs')
| -rw-r--r-- | PresenceLog.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/PresenceLog.hs b/PresenceLog.hs index ccb75ff5b..e0c872997 100644 --- a/PresenceLog.hs +++ b/PresenceLog.hs @@ -28,6 +28,7 @@ import Data.Time import System.Locale import qualified Data.Map as Map import Control.Monad.State (liftIO) +import Control.Applicative import qualified Branch import Types @@ -81,7 +82,7 @@ addLog file line = do {- Reads a log file. - Note that the LogLines returned may be in any order. -} readLog :: FilePath -> Annex [LogLine] -readLog file = return . parseLog =<< Branch.get file +readLog file = parseLog <$> Branch.get file parseLog :: String -> [LogLine] parseLog s = filter parsable $ map read $ lines s |