diff --git a/src/Bot/Trigger.hs b/src/Bot/Trigger.hs index 8ac9a78..cf4cd17 100644 --- a/src/Bot/Trigger.hs +++ b/src/Bot/Trigger.hs @@ -52,7 +52,7 @@ matchesTrigger phrase text = T.unpack text =~ pattern where pattern :: String - pattern = "(^|\\s)" <> escapeRegex (T.unpack phrase) <> "([\\s.,!?;:]|$)" + pattern = "(^|[[:space:]])" <> escapeRegex (T.unpack phrase) <> "([[:space:].,!?;:]|$)" escapeRegex :: String -> String escapeRegex = concatMap esc