diff options
| author | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-29 16:07:59 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-29 16:07:59 -0500 |
| commit | 8a06c083fab9c66e754c7ed5a75dd4d89131c43e (patch) | |
| tree | 28098c165bce0d8ebb5dda2d5390e63ddca1ab1e /src/Tomato/Bot.hs | |
| parent | 399ab3ee1653bbc0da69e2cc299aa2a313e765b4 (diff) | |
Improve error reporting
Diffstat (limited to 'src/Tomato/Bot.hs')
| -rw-r--r-- | src/Tomato/Bot.hs | 19 |
1 files changed, 19 insertions, 0 deletions
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" |