diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-16 16:20:49 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-16 16:20:49 -0400 |
commit | 909f619c07699fe6c76d40bb4649e07737a0b9ae (patch) | |
tree | 3d284a54f5bf70e2ac11d249bfa721963affb5be /UUID.hs | |
parent | 6d13ae10cf1d295b64855984f5a526f8209f3341 (diff) |
tweaks
Diffstat (limited to 'UUID.hs')
-rw-r--r-- | UUID.hs | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 |