Skip to content

Commit

Permalink
Prefer Text.any as Text.elem does not available with GHC 8.10.7
Browse files Browse the repository at this point in the history
  • Loading branch information
adetokunbo committed Nov 11, 2024
1 parent bb9c75f commit def1a73
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/System/MemInfo/Proc.hs
Original file line number Diff line number Diff line change
@@ -55,7 +55,7 @@ data StatusInfo = StatusInfo
instance Validity StatusInfo where
validate StatusInfo {siName, siParent} =
let name' = Text.strip siName
noNewlines = not $ Text.elem '\n' siName
noNewlines = not $ Text.any (== '\n') siName
nameOk = noNewlines && Text.length name' > 0 && siName == name'
in mconcat
[ check nameOk "the process name"

0 comments on commit def1a73

Please sign in to comment.