diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Vicfg.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Vicfg.hs b/Command/Vicfg.hs index faa2d3f05..8fc10deb5 100644 --- a/Command/Vicfg.hs +++ b/Command/Vicfg.hs @@ -42,7 +42,7 @@ start = do createAnnexDirectory $ parentDir f cfg <- getCfg descs <- uuidDescriptions - liftIO $ writeFile f $ genCfg cfg descs + liftIO $ writeFileAnyEncoding f $ genCfg cfg descs vicfg cfg f stop @@ -52,11 +52,11 @@ vicfg curcfg f = do -- Allow EDITOR to be processed by the shell, so it can contain options. unlessM (liftIO $ boolSystem "sh" [Param "-c", Param $ unwords [vi, shellEscape f]]) $ error $ vi ++ " exited nonzero; aborting" - r <- parseCfg (defCfg curcfg) <$> liftIO (readFileStrict f) + r <- parseCfg (defCfg curcfg) <$> liftIO (readFileStrictAnyEncoding f) liftIO $ nukeFile f case r of Left s -> do - liftIO $ writeFile f s + liftIO $ writeFileAnyEncoding f s vicfg curcfg f Right newcfg -> setCfg curcfg newcfg |