diff options
| author | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-29 16:07:59 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-29 16:07:59 -0500 |
| commit | 8a06c083fab9c66e754c7ed5a75dd4d89131c43e (patch) | |
| tree | 28098c165bce0d8ebb5dda2d5390e63ddca1ab1e /src/Tomato/Validate.hs | |
| parent | 399ab3ee1653bbc0da69e2cc299aa2a313e765b4 (diff) | |
Improve error reporting
Diffstat (limited to 'src/Tomato/Validate.hs')
| -rw-r--r-- | src/Tomato/Validate.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Tomato/Validate.hs b/src/Tomato/Validate.hs index 0afc4b5..fe0d82a 100644 --- a/src/Tomato/Validate.hs +++ b/src/Tomato/Validate.hs @@ -4,9 +4,10 @@ module Tomato.Validate import RIO -import Data.Message (InMessage (..)) +import Tomato.Data.Message (InMessage (..)) +-- | Check if a message is a tomato request isTomato :: InMessage -> Bool isTomato m = not (hasAttach m) && |