XPrompt: removed touchFile (which is not the equivalent of touch!)

darcs-hash:20070805225906-32816-0f38508090df958660a6399ee3281037d3c7b131.gz

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 ()