From 8a06c083fab9c66e754c7ed5a75dd4d89131c43e Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@gmail.com>
Date: Sun, 29 May 2022 16:07:59 -0500
Subject: Improve error reporting

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

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

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