twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Andrea Rossato
2007-08-05 22:59:06 +00:00
parent d29003cfc1
commit 686328c517
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XPrompt.hs
View File

@@ -550,8 +550,7 @@ readHistory = do
[(hist,_)] -> return (hist,h) [(hist,_)] -> return (hist,h)
[] -> return ([],h) [] -> return ([],h)
_ -> return ([],h) _ -> return ([],h)
else do touchFile path else do h <- openFile path WriteMode
h <- openFile path ReadMode
return ([],h) return ([],h)
writeHistory :: Handle -> [History] -> IO () writeHistory :: Handle -> [History] -> IO ()