convert isPointerFile from Annex to IO

2016-01-01 13:22:38 -04:00 · 2016-01-01 13:22:38 -04:00 · a2c056df65
commit a2c056df65
parent 00f0411d12
4 changed files with 5 additions and 5 deletions
--- a/Command/Lock.hs
+++ b/Command/Lock.hs
@ -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')