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

tweaks

Browse source
This commit is contained in:
Joey Hess 2010-10-16 16:20:49 -04:00
parent 6d13ae10cf
commit 909f619c07
16 changed files with 27 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

3
UUID.hs
View file

@ -21,7 +21,9 @@ import Maybe
import List
import System.Cmd.Utils
import System.IO
import System.Directory
import qualified Data.Map as M
import qualified GitRepo as Git
import Types
import Locations
@ -112,6 +114,7 @@ describeUUID uuid desc = do
m <- uuidMap
let m' = M.insert uuid desc m
log <- uuidLog
liftIO $ createDirectoryIfMissing True (parentDir log)
liftIO $ withFileLocked log WriteMode (\h -> hPutStr h $ serialize m')
where
serialize m = unlines $ map (\(u, d) -> u++" "++d) $ M.toList m