diff options
Diffstat (limited to 'XMonad/Prompt/AppendFile.hs')
-rw-r--r-- | XMonad/Prompt/AppendFile.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/XMonad/Prompt/AppendFile.hs b/XMonad/Prompt/AppendFile.hs index e5ffb5d..0760741 100644 --- a/XMonad/Prompt/AppendFile.hs +++ b/XMonad/Prompt/AppendFile.hs @@ -61,6 +61,4 @@ appendFilePrompt c fn = mkXPrompt (AppendFile fn) -- | Append a string to a file. doAppend :: FilePath -> String -> X () -doAppend fn s = io $ bracket (openFile fn AppendMode) - hClose - (flip hPutStrLn s) +doAppend fn = io . bracket (openFile fn AppendMode) hClose . flip hPutStrLn |