aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDominik Bruhn <dominik@dbruhn.de>2008-12-18 01:16:01 +0100
committerDominik Bruhn <dominik@dbruhn.de>2008-12-18 01:16:01 +0100
commit051e381e2267b8dbeb597e9b56753eafa23c7654 (patch)
tree9dca4aab068e96166ba944a900b860b5cbcacd86
parent4d15f94cd5d9a5405bda3ce58eb7ca6122f47742 (diff)
downloadXMonadContrib-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.hs3
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