diff options
Diffstat (limited to 'src/Tomato')
| -rw-r--r-- | src/Tomato/.Post.hs.swp | bin | 12288 -> 0 bytes | |||
| -rw-r--r-- | src/Tomato/Validate.hs | 2 |
2 files changed, 1 insertions, 1 deletions
diff --git a/src/Tomato/.Post.hs.swp b/src/Tomato/.Post.hs.swp Binary files differdeleted file mode 100644 index f823f90..0000000 --- a/src/Tomato/.Post.hs.swp +++ /dev/null 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" |