From 8a765f984d72c12264a2924e7393ac48aa4270ef Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@gmail.com>
Date: Sun, 29 May 2022 16:26:08 -0500
Subject: Add documentation

---
 app/Main.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index d464aa8..b62e614 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -23,6 +23,7 @@ import qualified Data.ByteString.Lazy.Char8 as BL8
 import qualified RIO.List.Partial as L'
 import qualified RIO.Text as T
 
+-- | Listen for tomato message and respond with tomato
 runServer :: Int -> IO ()
 runServer port = run port $ \request send -> do
     eres <- tryAnyDeep $ do
-- 
cgit v1.2.3