From e084d260ff0439f04ab62eba7229309d79ed55c4 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 16 Jul 2023 23:31:00 +0200
Subject: [haskell] Add a SpaceTradersT and handle server reset api message

---
 haskell/src/SpaceTraders.hs | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 haskell/src/SpaceTraders.hs

(limited to 'haskell/src/SpaceTraders.hs')

diff --git a/haskell/src/SpaceTraders.hs b/haskell/src/SpaceTraders.hs
new file mode 100644
index 0000000..d93116d
--- /dev/null
+++ b/haskell/src/SpaceTraders.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module SpaceTraders
+  ( SpaceTradersT
+  , runSpaceTradersT
+  , Config(..)
+  , ask
+  , liftIO
+  ) where
+
+import Control.Monad.IO.Class
+import Control.Monad.Trans.Reader
+import qualified Database.SQLite.Simple as S
+import qualified Data.Text as T
+
+type SpaceTradersT a = ReaderT Config IO a
+
+runSpaceTradersT :: SpaceTradersT a -> Config -> IO a
+runSpaceTradersT = runReaderT
+
+data Config = Config { conn :: S.Connection
+                     , token :: T.Text
+                     }
-- 
cgit v1.2.3