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

ensure tmp dir exists

Browse source
This commit is contained in:
Joey Hess 2011-04-21 10:53:29 -04:00
parent 6fcd3e1ef7
commit 45bdb2d413
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/S3real.hs
View file

@ -33,6 +33,7 @@ import Remote.Special
import Remote.Encryptable import Remote.Encryptable
import Crypto import Crypto
import Key import Key
import Utility
remote :: RemoteType Annex remote :: RemoteType Annex
remote = RemoteType { remote = RemoteType {
@ -113,6 +114,7 @@ storeEncrypted r (cipher, enck) k = s3Action r False $ \(conn, bucket) -> do
-- To get file size of the encrypted content, have to use a temp file. -- To get file size of the encrypted content, have to use a temp file.
-- (An alternative would be chunking to to a constant size.) -- (An alternative would be chunking to to a constant size.)
let tmp = gitAnnexTmpLocation g enck let tmp = gitAnnexTmpLocation g enck
liftIO $ createDirectoryIfMissing True (parentDir tmp)
liftIO $ withEncryptedContent cipher (L.readFile f) $ \s -> L.writeFile tmp s liftIO $ withEncryptedContent cipher (L.readFile f) $ \s -> L.writeFile tmp s
res <- liftIO $ storeHelper (conn, bucket) r enck tmp res <- liftIO $ storeHelper (conn, bucket) r enck tmp
tmp_exists <- liftIO $ doesFileExist tmp tmp_exists <- liftIO $ doesFileExist tmp