From 19e3dc5541a74fe1c323c629bdf214b8690640e5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 17 Aug 2016 15:52:08 -0400 Subject: save restored secret key to gpg or file --- Storage/Local.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Storage') diff --git a/Storage/Local.hs b/Storage/Local.hs index 57ba530..82a7fd0 100644 --- a/Storage/Local.hs +++ b/Storage/Local.hs @@ -41,7 +41,7 @@ store i s = onError (StoreFailure . show) $ do then return StoreAlreadyExists else do let tmp = dest ++ ".tmp" - fd <- openFd tmp WriteOnly (Just 0o600) + fd <- openFd tmp WriteOnly (Just 0o400) (defaultFileFlags { exclusive = True } ) h <- fdToHandle fd B.hPut h (toByteString s) -- cgit v1.2.3