From 75ba1520eb673f1c49ff3f8121352b1b4f27d861 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 3 Dec 2023 10:26:12 -0800 Subject: [PATCH] Fix warning. --- skylighting-core/src/Regex/KDE/Compile.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/skylighting-core/src/Regex/KDE/Compile.hs b/skylighting-core/src/Regex/KDE/Compile.hs index 7edd34a8..6fc6120a 100644 --- a/skylighting-core/src/Regex/KDE/Compile.hs +++ b/skylighting-core/src/Regex/KDE/Compile.hs @@ -274,7 +274,7 @@ pRegexCharClass = do (\d x -> x >= c && x <= d) <$> (char '-' *> getC) <|> return (== c) let getQELiteral = do - A.string "\\Q" + void $ A.string "\\Q" cs <- manyTill anyChar (A.string "\\E") return $! \c -> any (== c) cs brack <- option [] $ [(==']')] <$ char ']'