From 31c3566895bb717f51e986697d3452e549451f73 Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Sat, 28 May 2022 10:40:52 -0500 Subject: Handle requests --- src/Tomato/.Post.hs.swp | Bin 12288 -> 0 bytes src/Tomato/Validate.hs | 2 +- 2 files changed, 1 insertion(+), 1 deletion(-) delete mode 100644 src/Tomato/.Post.hs.swp (limited to 'src/Tomato') diff --git a/src/Tomato/.Post.hs.swp b/src/Tomato/.Post.hs.swp deleted file mode 100644 index f823f90..0000000 Binary files a/src/Tomato/.Post.hs.swp and /dev/null differ 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