src/Tomato/Validate.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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"