diff options
| author | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-28 10:40:52 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-28 10:40:52 -0500 |
| commit | 31c3566895bb717f51e986697d3452e549451f73 (patch) | |
| tree | 723b9fd36af8fd6997903590948d700508f05b83 /src/Tomato/Validate.hs | |
| parent | 3d3163a1028e99e5073fd39adc9aee5d76a5e5a2 (diff) | |
Handle requests
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" |