diff options
Diffstat (limited to 'Storage/Local.hs')
| -rw-r--r-- | Storage/Local.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |