diff options
| author | jao <jao@gnu.org> | 2020-05-11 19:22:41 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-05-11 19:22:41 +0100 |
| commit | 6faa17e39d7bf77df9aa199db09d52a600984271 (patch) | |
| tree | c41a1a3139a264b61a83d9979259b0cb021ed1b7 /src/Xmobar/System/Utils.hs | |
| parent | 3e9e1cb9d300e13109206496d825351c4f41cc1c (diff) | |
| download | xmobar-6faa17e39d7bf77df9aa199db09d52a600984271.tar.gz xmobar-6faa17e39d7bf77df9aa199db09d52a600984271.tar.bz2 | |
hlinting
Diffstat (limited to 'src/Xmobar/System/Utils.hs')
| -rw-r--r-- | src/Xmobar/System/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/System/Utils.hs b/src/Xmobar/System/Utils.hs index 33f221c..d532149 100644 --- a/src/Xmobar/System/Utils.hs +++ b/src/Xmobar/System/Utils.hs @@ -67,6 +67,6 @@ onSomeException io what = io `catch` \e -> do _ <- what e {-# INLINE (!!?) #-} safeIndex :: NE.NonEmpty a -> Int -> a -safeIndex xs index = case (NE.toList xs) !!? index of +safeIndex xs index = case NE.toList xs !!? index of Nothing -> NE.head xs Just value -> value |