diff options
| -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 |