diff options
| author | Jochen Keil <jochen.keil@gmail.com> | 2012-08-10 11:37:22 +0200 |
|---|---|---|
| committer | Jochen Keil <jochen.keil@gmail.com> | 2012-08-10 11:37:22 +0200 |
| commit | 1f603c25eea15d302a4aa1ebb879bbd8198a3b82 (patch) | |
| tree | d431e434b0b86a1b3197a3996f15d34743e7ae48 | |
| parent | a7158c426ae008fb268f603f75d027683f726757 (diff) | |
| download | xmobar-1f603c25eea15d302a4aa1ebb879bbd8198a3b82.tar.gz xmobar-1f603c25eea15d302a4aa1ebb879bbd8198a3b82.tar.bz2 | |
Move safeHead to Plugins.Utils
safeHead is a very general utility function with suits better into a
common Util module.
| -rw-r--r-- | src/IPC/DBus.hs | 5 | ||||
| -rw-r--r-- | src/Plugins/Utils.hs | 6 |
2 files changed, 6 insertions, 5 deletions
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 diff --git a/src/Plugins/Utils.hs b/src/Plugins/Utils.hs index 1dbcd40..bbfa84f 100644 --- a/src/Plugins/Utils.hs +++ b/src/Plugins/Utils.hs @@ -15,7 +15,7 @@ ------------------------------------------------------------------------------ -module Plugins.Utils (expandHome, changeLoop) where +module Plugins.Utils (expandHome, changeLoop, safeHead) where import Control.Monad import Control.Concurrent.STM @@ -37,3 +37,7 @@ changeLoop s f = atomically s >>= go new <- s guard (new /= old) return new) + +safeHead :: [a] -> Maybe a +safeHead [] = Nothing +safeHead (x:_) = Just x |