diff options
author | 2014-06-05 15:43:12 -0400 | |
---|---|---|
committer | 2014-06-05 15:54:06 -0400 | |
commit | f9334586d24540560677f26150d30947226a719c (patch) | |
tree | cbf80c5a8276e62763bd48c9bbbf5b419eef7029 | |
parent | 1ccfdd43418f49393b6c1e7b8b1c8f3d88ba9045 (diff) |
fixed getting files from bare repos on windows
-rw-r--r-- | Annex/Content.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index f2d6e3249..aaae595aa 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -124,7 +124,7 @@ inAnnexSafe key = inAnnex' (fromMaybe False) (Just False) go key Nothing -> is_unlocked check def Nothing = return def #else - checkindirect f = ifM (liftIO $ doesFileExist f) + checkindirect f = liftIO $ ifM (doesFileExist f) ( do v <- lockShared f case v of |