diff options
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 |