From 0b7b43ef83a2ab6fd894c20e028b9d69372c7266 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 25 Nov 2018 00:58:21 +0000 Subject: Plugins.Utils -> Utils --- src/lib/Xmobar/XUtil.hs | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) (limited to 'src/lib/Xmobar/XUtil.hs') 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 -- cgit v1.2.3