From 051e381e2267b8dbeb597e9b56753eafa23c7654 Mon Sep 17 00:00:00 2001
From: Dominik Bruhn <dominik@dbruhn.de>
Date: Thu, 18 Dec 2008 01:16:01 +0100
Subject:  Prompt: Change Filemode to 600 for history-file (fixes bug 244)

darcs-hash:20081218001601-ae55e-638802808e989df10b5a06e84cd251280300d278.gz
---
 XMonad/Prompt.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'XMonad/Prompt.hs')

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
 
-- 
cgit v1.2.3