summaryrefslogtreecommitdiff
path: root/PresenceLog.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-04 00:40:47 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-04 00:59:08 -0400
commitcfe21e85e7fba61ac588e210f2a9b75f8d081f42 (patch)
tree3237aa5460cb38254a44a6462c83db3c2276c229 /PresenceLog.hs
parentff21fd4a652cc6516d0e06ab885adf1c93eddced (diff)
rename
Diffstat (limited to 'PresenceLog.hs')
-rw-r--r--PresenceLog.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/PresenceLog.hs b/PresenceLog.hs
index 23c288257..01c1ad094 100644
--- a/PresenceLog.hs
+++ b/PresenceLog.hs
@@ -27,8 +27,8 @@ import Data.Time
import System.Locale
import qualified Data.Map as M
-import AnnexCommon
-import qualified Branch
+import Annex.Common
+import qualified Annex.Branch
data LogLine = LogLine {
date :: POSIXTime,
@@ -72,13 +72,13 @@ instance Read LogLine where
ret v = [(v, "")]
addLog :: FilePath -> LogLine -> Annex ()
-addLog file line = Branch.change file $ \s ->
+addLog file line = Annex.Branch.change file $ \s ->
showLog $ compactLog (line : parseLog s)
{- Reads a log file.
- Note that the LogLines returned may be in any order. -}
readLog :: FilePath -> Annex [LogLine]
-readLog file = parseLog <$> Branch.get file
+readLog file = parseLog <$> Annex.Branch.get file
parseLog :: String -> [LogLine]
parseLog = filter parsable . map read . lines