aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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