From c27d32ea89dfd2ad07ecc73cfdd17f3935c74aaa Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 25 Nov 2018 04:12:43 +0000
Subject: Unused code and compilation fixes

---
 src/lib/Xmobar/Utils.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/lib/Xmobar/Utils.hs')

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
-- 
cgit v1.2.3