diff options
| author | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-27 21:07:43 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-27 21:07:43 -0500 |
| commit | 3d3163a1028e99e5073fd39adc9aee5d76a5e5a2 (patch) | |
| tree | d1cff9ed00418183d3ed8de412d0fdccd7666eaf /src/Tomato/Validate.hs | |
Initial Commit
Diffstat (limited to 'src/Tomato/Validate.hs')
| -rw-r--r-- | src/Tomato/Validate.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/Tomato/Validate.hs b/src/Tomato/Validate.hs new file mode 100644 index 0000000..a3dd328 --- /dev/null +++ b/src/Tomato/Validate.hs @@ -0,0 +1,16 @@ +module Tomato.Validate + ( isTomato + ) where + +import RIO + +import Data.Message (InMessage (..)) + + +isTomato :: InMessage -> Bool +isTomato m = + not (hasAttach m) && + groupId m == 87220147 && + isUser m && + text m == "tomato" + |