From d45cdc8cf9e118e5225c475e569db43bf13064de Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 2 Aug 2016 18:04:00 +0200 Subject: attempt to fix file modes --- trivmix/Trivmix.hs | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs index f7c1b48..a0c974c 100644 --- a/trivmix/Trivmix.hs +++ b/trivmix/Trivmix.hs @@ -89,18 +89,18 @@ initialLevel = def defFileMode :: FileMode defFileMode = foldl unionFileModes nullFileMode [ ownerReadMode - , ownerWriteMode - , groupReadMode - , groupWriteMode - , otherReadMode - ] + , ownerWriteMode + , groupReadMode + , groupWriteMode + , otherReadMode + ] defDirectoryMode :: FileMode defDirectoryMode = foldl unionFileModes nullFileMode [ ownerModes - , groupModes - , otherReadMode - , otherExecuteMode - ] + , groupModes + , otherReadMode + , otherExecuteMode + ] main :: IO () main = execParser opts >>= trivmix where @@ -166,6 +166,7 @@ onStateFile file initial action = do directories = iterate takeDirectory directory createDirs <- takeWhileM (\d -> not <$> doesDirectoryExist d) directories exists <- doesFileExist file + setFileCreationMask nullFileMode let acquireFile = case exists of True -> return () False -> do -- cgit v1.2.3