From 55720885aeb90e9b8d3e4153145b6a13cac1c0c7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 10 Nov 2010 12:50:00 -0400
Subject: set write bit on unlocked file

---
 Command/Unlock.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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!"
-- 
cgit v1.2.3