diff options
| author | sean.escriva <sean.escriva@gmail.com> | 2009-09-28 22:44:43 +0200 |
|---|---|---|
| committer | sean.escriva <sean.escriva@gmail.com> | 2009-09-28 22:44:43 +0200 |
| commit | c11a6e9d11b994cc23aa096ff85c31c7a881283b (patch) | |
| tree | 4de75600dd9412ed6a5f9ece873cbc0e7dcdf478 /XMonad/Prompt/AppendFile.hs | |
| parent | a343d09be11a512c48611b2abbb9d270ff71e75e (diff) | |
| download | XMonadContrib-c11a6e9d11b994cc23aa096ff85c31c7a881283b.tar.gz XMonadContrib-c11a6e9d11b994cc23aa096ff85c31c7a881283b.tar.xz XMonadContrib-c11a6e9d11b994cc23aa096ff85c31c7a881283b.zip | |
minor hlint cleanup of Prompt and XMonad.Prompt.* sub-modules
Ignore-this: 25e71f59bdcc5bf94c2d6f476833216b
darcs-hash:20090928204443-29414-d1844586f2955c8b76d971b20d6e2b6c1ea91d4d.gz
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 |