diff options
| -rw-r--r-- | XMonad/Prompt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index c30d003..41ff787 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -613,7 +613,7 @@ getHistory = do readHistory :: IO ([History],Handle) readHistory = do home <- getEnv "HOME" - let path = home ++ "/.xmonad_history" + let path = home ++ "/.xmonad/history" f <- fileExist path if f then do h <- openFile path ReadMode str <- hGetContents h @@ -627,7 +627,7 @@ readHistory = do writeHistory :: [History] -> IO () writeHistory hist = do home <- getEnv "HOME" - let path = home ++ "/.xmonad_history" + let path = home ++ "/.xmonad/history" catch (writeFile path (show hist)) (\_ -> do putStrLn "error in writing"; return ()) -- $xutils |