diff options
author | Joey Hess <joey@kitenet.net> | 2011-10-04 00:40:47 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-10-04 00:59:08 -0400 |
commit | cfe21e85e7fba61ac588e210f2a9b75f8d081f42 (patch) | |
tree | 3237aa5460cb38254a44a6462c83db3c2276c229 /UUID.hs | |
parent | ff21fd4a652cc6516d0e06ab885adf1c93eddced (diff) |
rename
Diffstat (limited to 'UUID.hs')
-rw-r--r-- | UUID.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -24,9 +24,9 @@ module UUID ( import qualified Data.Map as M -import AnnexCommon +import Annex.Common import qualified Git -import qualified Branch +import qualified Annex.Branch import Types.UUID import qualified Build.SysConfig as SysConfig import Config @@ -82,14 +82,14 @@ prepUUID = do {- Records a description for a uuid in the uuidLog. -} describeUUID :: UUID -> String -> Annex () -describeUUID uuid desc = Branch.change uuidLog $ +describeUUID uuid desc = Annex.Branch.change uuidLog $ serialize . M.insert uuid desc . parse where serialize m = unlines $ map (\(u, d) -> u++" "++d) $ M.toList m {- Read the uuidLog into a Map -} uuidMap :: Annex (M.Map UUID String) -uuidMap = parse <$> Branch.get uuidLog +uuidMap = parse <$> Annex.Branch.get uuidLog parse :: String -> M.Map UUID String parse = M.fromList . map pair . lines |