1 files changed, 1 insertions, 2 deletions
diff --git a/XPrompt.hs b/XPrompt.hs
index 2c3b781..1b15f13 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -550,8 +550,7 @@ readHistory = do
                  [(hist,_)] -> return (hist,h)
                  [] -> return ([],h)
                  _ -> return ([],h)
-       else do touchFile path
-               h <- openFile path ReadMode
+       else do h <- openFile path WriteMode
                return ([],h)
 
 writeHistory :: Handle -> [History] -> IO ()