summaryrefslogtreecommitdiffhomepage
path: root/Plugins/PipeReader.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2008-03-16 13:11:00 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2008-03-16 13:11:00 +0100
commit5b753d8c1aa2ce271fb15b7c9aa1af83f8de0d3a (patch)
treebdde146cd302b48910d79e627f6790a8b4dd50b9 /Plugins/PipeReader.hs
parentff8ef5fa74fb5bce3dcb82ef1cd81e0d123d0ac1 (diff)
downloadxmobar-5b753d8c1aa2ce271fb15b7c9aa1af83f8de0d3a.tar.gz
xmobar-5b753d8c1aa2ce271fb15b7c9aa1af83f8de0d3a.tar.bz2
add XFT support and make UTF-8 support configurable
This patch includes many changes: - moved font and printing functions to XUtil.hs and created an abstraction layer to font management; - ported the core, StdinReader and PipeReader to the new font management system. To enable UTF-8 support configure with the "with_utf8" flag (requires utf8-string): runhaskell Setup.lhs configure --flags darcs-hash:20080316121100-d6583-828134da356b706744b56a9d81203129b0e8e484.gz
Diffstat (limited to 'Plugins/PipeReader.hs')
-rw-r--r--Plugins/PipeReader.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Plugins/PipeReader.hs b/Plugins/PipeReader.hs
index 6c84f71..a0709b1 100644
--- a/Plugins/PipeReader.hs
+++ b/Plugins/PipeReader.hs
@@ -15,7 +15,6 @@
module Plugins.PipeReader where
import System.IO
-import qualified System.IO.UTF8 as U
import Plugins
data PipeReader = PipeReader String String
@@ -25,5 +24,5 @@ instance Exec PipeReader where
alias (PipeReader _ a) = a
start (PipeReader p _) cb = do
h <- openFile p ReadMode
- forever (U.hGetLine h >>= cb)
+ forever (hGetLineSafe h >>= cb)
where forever a = a >> forever a