summaryrefslogtreecommitdiffhomepage
path: root/src/lib/Xmobar/XUtil.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/Xmobar/XUtil.hs')
-rw-r--r--src/lib/Xmobar/XUtil.hs15
1 files changed, 2 insertions, 13 deletions
diff --git a/src/lib/Xmobar/XUtil.hs b/src/lib/Xmobar/XUtil.hs
index 536a2fb..c4b4531 100644
--- a/src/lib/Xmobar/XUtil.hs
+++ b/src/lib/Xmobar/XUtil.hs
@@ -22,7 +22,6 @@ module Xmobar.XUtil
, textWidth
, printString
, nextEvent'
- , hGetLineSafe
) where
import Control.Concurrent
@@ -36,26 +35,16 @@ import qualified Graphics.X11.Xlib as Xlib (textExtents, textWidth)
import Graphics.X11.Xlib.Extras
import System.Mem.Weak ( addFinalizer )
import System.Posix.Types (Fd(..))
-import System.IO
-
-#if defined XFT || defined UTF8
-import qualified System.IO as S (hGetLine)
-#endif
#if defined XFT
import Xmobar.MinXft
import Graphics.X11.Xrender
+#else
+import System.IO(hPutStrLn, stderr)
#endif
import Xmobar.ColorCache
-hGetLineSafe :: Handle -> IO String
-#if defined XFT || defined UTF8
-hGetLineSafe = S.hGetLine
-#else
-hGetLineSafe = hGetLine
-#endif
-
-- Hide the Core Font/Xft switching here
data XFont = Core FontStruct
| Utf8 FontSet