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