From 31c3566895bb717f51e986697d3452e549451f73 Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@gmail.com>
Date: Sat, 28 May 2022 10:40:52 -0500
Subject: Handle requests

---
 src/Tomato/Validate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Tomato/Validate.hs')

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"
 
-- 
cgit v1.2.3