summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/System
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/System')
-rw-r--r--src/Xmobar/System/Utils.hs2
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