diff options
Diffstat (limited to 'src/Tomato/Validate.hs')
| -rw-r--r-- | src/Tomato/Validate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Tomato/Validate.hs b/src/Tomato/Validate.hs index a3dd328..0afc4b5 100644 --- a/src/Tomato/Validate.hs +++ b/src/Tomato/Validate.hs @@ -10,7 +10,7 @@ import Data.Message (InMessage (..)) isTomato :: InMessage -> Bool isTomato m = not (hasAttach m) && - groupId m == 87220147 && + groupId m == "87220147" && isUser m && text m == "tomato" |