diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-08-13 15:11:55 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-08-13 15:12:11 +0200 |
| commit | 359769944a8cb0ac80537458af0e49cc8f68d01b (patch) | |
| tree | 484068988be1571b25ff0a81c7e74cb9cd579325 /src/Plugins/Utils.hs | |
| parent | 73837127825529d44e2e0d4ed440da0d7b180020 (diff) | |
| parent | 05f268c3a831325f65a662c6ccdff75a1c441d83 (diff) | |
| download | xmobar-359769944a8cb0ac80537458af0e49cc8f68d01b.tar.gz xmobar-359769944a8cb0ac80537458af0e49cc8f68d01b.tar.bz2 | |
Merge for pull request #53
Diffstat (limited to 'src/Plugins/Utils.hs')
| -rw-r--r-- | src/Plugins/Utils.hs | 6 |
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 |