diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-03 10:20:18 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-03 10:20:18 -0400 |
| commit | d14a82f0334f299b055b8a3feefdc164d06ee9f2 (patch) | |
| tree | fac0199b3ad4ce539ae7c8ba74c22913e9c29ba2 /Remote | |
| parent | 19fee049f6dfba4d4294e16d6d530bc7d0e78c54 (diff) | |
fix failing test case on Windows
ensure file being modified is all read before it's opened for write
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Bup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index 7395b7428..62af704b2 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -145,7 +145,7 @@ storeEncrypted r buprepo (cipher, enck) k _p = retrieve :: BupRepo -> Key -> AssociatedFile -> FilePath -> MeterUpdate -> Annex Bool retrieve buprepo k _f d _p = do let params = bupParams "join" buprepo [Param $ bupRef k] - liftIO $ catchBoolIO $ withFIle d WriteMode $ + liftIO $ catchBoolIO $ withFile d WriteMode $ pipeBup params Nothing . Just retrieveCheap :: BupRepo -> Key -> FilePath -> Annex Bool |