src/Tomato/Bot.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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"