diff options
| author | jao <jao@gnu.org> | 2018-11-25 04:12:43 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-11-25 04:12:43 +0000 |
| commit | c27d32ea89dfd2ad07ecc73cfdd17f3935c74aaa (patch) | |
| tree | f96c3e041d68d0255f9072228e2e4340251df324 /src/lib/Xmobar/Utils.hs | |
| parent | d829bc0739be8796a431e02fde284e8f1c69022e (diff) | |
| download | xmobar-c27d32ea89dfd2ad07ecc73cfdd17f3935c74aaa.tar.gz xmobar-c27d32ea89dfd2ad07ecc73cfdd17f3935c74aaa.tar.bz2 | |
Unused code and compilation fixes
Diffstat (limited to 'src/lib/Xmobar/Utils.hs')
| -rw-r--r-- | src/lib/Xmobar/Utils.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/lib/Xmobar/Utils.hs b/src/lib/Xmobar/Utils.hs index eeb03f6..7e79514 100644 --- a/src/lib/Xmobar/Utils.hs +++ b/src/lib/Xmobar/Utils.hs @@ -17,7 +17,7 @@ ------------------------------------------------------------------------------ -module Xmobar.Utils (expandHome, changeLoop, safeHead, hGetLineSafe, nextEvent') +module Xmobar.Utils (expandHome, changeLoop, hGetLineSafe, nextEvent') where import Control.Monad @@ -58,10 +58,6 @@ changeLoop s f = atomically s >>= go guard (new /= old) return new) -safeHead :: [a] -> Maybe a -safeHead [] = Nothing -safeHead (x:_) = Just x - -- | A version of nextEvent that does not block in foreign calls. nextEvent' :: Display -> XEventPtr -> IO () nextEvent' d p = do |