diff options
| -rw-r--r-- | Command/Unlock.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/Unlock.hs b/Command/Unlock.hs index 57d4ad87a..de21988de 100644 --- a/Command/Unlock.hs +++ b/Command/Unlock.hs @@ -16,6 +16,7 @@ import Types import Messages import Locations import Utility +import Core {- The unlock subcommand replaces the symlink with a copy of the file's - content. -} @@ -32,5 +33,7 @@ perform dest key = do showNote "copying..." ok <- liftIO $ boolSystem "cp" ["-p", src, dest] if ok - then return $ Just $ return True -- no cleanup needed + then do + liftIO $ allowWrite dest + return $ Just $ return True else error "cp failed!" |