fixup! fixup! Fix partial uses of head

slotThe · Oct 27, 2023 · 4a910a6 · 4a910a6
1 parent 770d2d9
commit 4a910a6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/XMonad/Hooks/StatusBar/PP.hs b/XMonad/Hooks/StatusBar/PP.hs
@@ -465,7 +465,7 @@ xmobarStrip = converge (xmobarStripTags ["fc","icon","action"])
 
 converge :: (Eq a) => (a -> a) -> a -> a
 converge f a
-  = fst . NE.head . notEmpty -- *If* this function terminates, we will find a match.
+  = fst . NE.head . notEmpty -- If this function terminates, we will find a match.
   . dropWhile (uncurry (/=))
   . zip xs
   $ drop 1 xs