From ed8d1ed03c3520ccd4b3c775817bef122457f224 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 17 Aug 2016 15:45:54 -0400
Subject: store files mode 400

---
 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 93647df..57ba530 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 0o666)
+			fd <- openFd tmp WriteOnly (Just 0o600)
 				(defaultFileFlags { exclusive = True } )
 			h <- fdToHandle fd
 			B.hPut h (toByteString s)
-- 
cgit v1.2.3