diff options
| author | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-29 16:26:08 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-29 16:26:08 -0500 |
| commit | 8a765f984d72c12264a2924e7393ac48aa4270ef (patch) | |
| tree | 466998ebcf7b3ad40e8db559638c43821e6b746e | |
| parent | 8a06c083fab9c66e754c7ed5a75dd4d89131c43e (diff) | |
Add documentation
| -rw-r--r-- | app/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |