From 1f603c25eea15d302a4aa1ebb879bbd8198a3b82 Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@gmail.com>
Date: Fri, 10 Aug 2012 11:37:22 +0200
Subject: Move safeHead to Plugins.Utils

safeHead is a very general utility function with suits better into a
common Util module.
---
 src/IPC/DBus.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/IPC')

diff --git a/src/IPC/DBus.hs b/src/IPC/DBus.hs
index 64e3cca..4357c48 100644
--- a/src/IPC/DBus.hs
+++ b/src/IPC/DBus.hs
@@ -20,10 +20,7 @@ import Control.Monad ((>=>), join, when)
 import Control.Concurrent
 
 import Signal
-
-safeHead :: [a] -> Maybe a
-safeHead    [] = Nothing
-safeHead (x:_) = Just x
+import Plugins.Utils (safeHead)
 
 instance IsVariant SignalType where
     toVariant   = toVariant . show
-- 
cgit v1.2.3