summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Utils.hs
diff options
context:
space:
mode:
authorJochen Keil <jochen.keil@gmail.com>2012-08-10 11:37:22 +0200
committerJochen Keil <jochen.keil@gmail.com>2012-08-10 11:37:22 +0200
commit1f603c25eea15d302a4aa1ebb879bbd8198a3b82 (patch)
treed431e434b0b86a1b3197a3996f15d34743e7ae48 /src/Plugins/Utils.hs
parenta7158c426ae008fb268f603f75d027683f726757 (diff)
downloadxmobar-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.
Diffstat (limited to 'src/Plugins/Utils.hs')
-rw-r--r--src/Plugins/Utils.hs6
1 files changed, 5 insertions, 1 deletions
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