diff options
| author | Dominik Bruhn <dominik@dbruhn.de> | 2008-12-18 01:16:01 +0100 |
|---|---|---|
| committer | Dominik Bruhn <dominik@dbruhn.de> | 2008-12-18 01:16:01 +0100 |
| commit | 051e381e2267b8dbeb597e9b56753eafa23c7654 (patch) | |
| tree | 9dca4aab068e96166ba944a900b860b5cbcacd86 | |
| parent | 4d15f94cd5d9a5405bda3ce58eb7ca6122f47742 (diff) | |
| download | XMonadContrib-051e381e2267b8dbeb597e9b56753eafa23c7654.tar.gz XMonadContrib-051e381e2267b8dbeb597e9b56753eafa23c7654.tar.xz XMonadContrib-051e381e2267b8dbeb597e9b56753eafa23c7654.zip | |
Prompt: Change Filemode to 600 for history-file (fixes bug 244)
darcs-hash:20081218001601-ae55e-638802808e989df10b5a06e84cd251280300d278.gz
| -rw-r--r-- | XMonad/Prompt.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index b9dc42c..b624ad8 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -70,6 +70,7 @@ import Data.List import Data.Set (fromList, toList) import System.Directory import System.IO +import System.Posix.Files import Control.Exception hiding (handle) import qualified Data.Map as Map @@ -716,6 +717,8 @@ writeHistory :: History -> IO () writeHistory hist = do path <- getHistoryFile catch (writeFile path (show hist)) $ const $ hPutStrLn stderr "error in writing" + setFileMode path mode + where mode = ownerReadMode .|. ownerWriteMode -- $xutils |