From 8a06c083fab9c66e754c7ed5a75dd4d89131c43e Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Sun, 29 May 2022 16:07:59 -0500 Subject: Improve error reporting --- src/Tomato/Bot.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 src/Tomato/Bot.hs (limited to 'src/Tomato/Bot.hs') diff --git a/src/Tomato/Bot.hs b/src/Tomato/Bot.hs new file mode 100644 index 0000000..8d4cf6d --- /dev/null +++ b/src/Tomato/Bot.hs @@ -0,0 +1,19 @@ +module Tomato.Bot + ( tomatoBot + ) where + +import RIO + +import Tomato.App (App) +import Tomato.Post (postTomato) +import Tomato.Retrieve (randomTomato) + + +-- | Fetch and post a tomato +tomatoBot :: RIO App () +tomatoBot = do + logInfo $ "Fetching tomato" + randomTomato + logInfo $ "Posting tomato" + postTomato + logInfo $ "Done" -- cgit v1.2.3