fixed getting files from bare repos on windows

This commit is contained in:
Joey Hess 2014-06-05 15:43:12 -04:00
parent 8f717643a6
commit dcddacfd5c

View file

@ -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