From 8dbe4a1e7b72fb5bfc91e24d355de7216d5d3ef3 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Mon, 6 Aug 2007 00:59:06 +0200
Subject: XPrompt: removed touchFile (which is not the equivalent of touch!)

darcs-hash:20070805225906-32816-0f38508090df958660a6399ee3281037d3c7b131.gz
---
 XPrompt.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'XPrompt.hs')

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