Fix regex for trigger

This commit is contained in:
Brian McKenna 2026-02-15 23:39:49 +11:00
parent 99943b06bc
commit 106a44571c

View File

@ -52,7 +52,7 @@ matchesTrigger phrase text =
T.unpack text =~ pattern T.unpack text =~ pattern
where where
pattern :: String pattern :: String
pattern = "(^|\\s)" <> escapeRegex (T.unpack phrase) <> "([\\s.,!?;:]|$)" pattern = "(^|[[:space:]])" <> escapeRegex (T.unpack phrase) <> "([[:space:].,!?;:]|$)"
escapeRegex :: String -> String escapeRegex :: String -> String
escapeRegex = concatMap esc escapeRegex = concatMap esc