From 8a06c083fab9c66e754c7ed5a75dd4d89131c43e Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@gmail.com>
Date: Sun, 29 May 2022 16:07:59 -0500
Subject: Improve error reporting

---
 src/Tomato/App.hs | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/Tomato/App.hs

(limited to 'src/Tomato/App.hs')

diff --git a/src/Tomato/App.hs b/src/Tomato/App.hs
new file mode 100644
index 0000000..14bf61a
--- /dev/null
+++ b/src/Tomato/App.hs
@@ -0,0 +1,32 @@
+module Tomato.App
+  ( App (..)
+  , runApp
+  ) where
+
+import RIO
+
+
+data App = App
+    { appLogFunc  :: !LogFunc
+    , appToken    :: !ByteString
+    , appBotId    :: !Text
+    , appFile     :: !FilePath
+    , appClientId :: !Text
+    }
+
+instance HasLogFunc App where
+    logFuncL = lens appLogFunc (\x y -> x { appLogFunc = y })
+
+runApp :: RIO App a -> IO a
+runApp inner = do
+  logOptions' <- logOptionsHandle stderr False
+  let logOptions = setLogUseTime True $ setLogUseLoc True logOptions'
+  withLogFunc logOptions $ \logFunc -> do
+    let app = App
+          { appLogFunc = logFunc
+          , appToken = "t2YhlxxwZmn2cWfkAomjMc6BgVPMaC5NRkqHzGQl"
+          , appBotId = "713bcb4a4604006c944804552c"
+          , appFile = "tomato.png"
+          , appClientId = "FbzqI-oR7277JwL1ZGsyUw7yG1F5U0U3WhQ3kOW71Do"
+          }
+    runRIO app inner
-- 
cgit v1.2.3