karma: Add alternative way to declare love

infinisil · Mar 26, 2019 · 7144f8f · 7144f8f
1 parent 0c70794
commit 7144f8f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Plugins/Karma.hs b/src/Plugins/Karma.hs
@@ -22,7 +22,7 @@ import           Text.Regex.TDFA      ((=~))
 
 
 karmaRegex :: String
-karmaRegex = "([^[:space:]]+)\\+\\+"
+karmaRegex = "([^[:space:]]+)\\+\\+|<3 ([^[:space:]]+)"
 
 -- TODO: Use a single constructor with givenBy being a Maybe (or some iso of it)
 -- Needs to migrate the old data
@@ -80,7 +80,7 @@ karmaPlugin :: Plugin
 karmaPlugin = Plugin
   { pluginName = "karma"
   , pluginCatcher = \input@Input { inputMessage } ->
-      case fmap (!!1) (inputMessage =~ karmaRegex :: [[String]]) of
+      case filter (not . null) . concatMap tail $ (inputMessage =~ karmaRegex :: [[String]]) of
         []      -> PassedOn
         matches -> Catched True (input, matches)
   , pluginHandler = \(Input { inputChannel, inputUser, inputMessage }, unfilteredMatches) -> do