diff options
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 |