convert isPointerFile from Annex to IO

This commit is contained in:
Joey Hess 2016-01-01 13:22:38 -04:00
parent 00f0411d12
commit a2c056df65
Failed to extract signature
4 changed files with 5 additions and 5 deletions

View file

@ -41,7 +41,7 @@ startNew file key = ifM (isJust <$> isAnnexLink file)
( stop
, do
showStart "lock" file
go =<< isPointerFile file
go =<< liftIO (isPointerFile file)
)
where
go (Just key')