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"
+