attempt to fix file modes

1 files 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