diff options
| author | jao <jao@gnu.org> | 2018-11-25 00:58:21 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-11-25 00:58:21 +0000 |
| commit | 0b7b43ef83a2ab6fd894c20e028b9d69372c7266 (patch) | |
| tree | 8ce2b4d7efbd97bca387cbf7613ca9863a14d59e /src/lib/Xmobar/XUtil.hs | |
| parent | 7d11e5b47d06d38b23fc1190aba640de9daa76e0 (diff) | |
| download | xmobar-0b7b43ef83a2ab6fd894c20e028b9d69372c7266.tar.gz xmobar-0b7b43ef83a2ab6fd894c20e028b9d69372c7266.tar.bz2 | |
Plugins.Utils -> Utils
Diffstat (limited to 'src/lib/Xmobar/XUtil.hs')
| -rw-r--r-- | src/lib/Xmobar/XUtil.hs | 15 |
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 |