Add user API endpoint

1 files changed, 17 insertions, 0 deletions

diff --git a/fig-frontend/src/Fig/Frontend/DB.hs b/fig-frontend/src/Fig/Frontend/DB.hs
new file mode 100644
index 0000000..0425f67
--- /dev/null
+++ b/fig-frontend/src/Fig/Frontend/DB.hs
@@ -0,0 +1,17 @@
+module Fig.Frontend.DB where
+
+import Control.Error.Util (hush)
+
+import qualified Database.Redis as Redis
+
+import Fig.Prelude
+
+connect :: MonadIO m => m Redis.Connection
+connect = liftIO $ Redis.checkedConnect Redis.defaultConnectInfo
+  { Redis.connectHost = "shiro"
+  }
+
+get :: MonadIO m => Redis.Connection -> ByteString -> m (Maybe ByteString)
+get c key = liftIO $ Redis.runRedis c do
+  v <- Redis.get key
+  pure $ join $ hush v