diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-07 13:32:52 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-07 13:32:52 -0400 |
| commit | b2cb9c7f0f5b713fe9abdfe29eabf6bb82e7b2b1 (patch) | |
| tree | 3b99ea5a0b085046a31bdb13d0454d105d887d4b /Logs/Presence.hs | |
| parent | 136b9fa41d4e83b90714fc054aca92fa967315ae (diff) | |
| parent | d8394ede7b16d9aafcc19885f31d7935250a9bb6 (diff) | |
Merge branch 'master' into concurrentprogress
Diffstat (limited to 'Logs/Presence.hs')
| -rw-r--r-- | Logs/Presence.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/Logs/Presence.hs b/Logs/Presence.hs index 469ed8de9..60e0c542a 100644 --- a/Logs/Presence.hs +++ b/Logs/Presence.hs @@ -16,7 +16,6 @@ module Logs.Presence ( addLog, readLog, logNow, - logThen, currentLog, currentLogInfo, historicalLogInfo, @@ -44,9 +43,6 @@ logNow s i = do now <- liftIO getPOSIXTime return $ LogLine now s i -logThen :: POSIXTime -> LogStatus -> String -> Annex LogLine -logThen t s i = return $ LogLine t s i - {- Reads a log and returns only the info that is still in effect. -} currentLogInfo :: FilePath -> Annex [String] currentLogInfo file = map info <$> currentLog file |