From e5f5c42f69448ac5d9fa71dac9d41d64c7165643 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 12 Jan 2024 18:16:45 -0500 Subject: Add user API endpoint --- fig-frontend/src/Fig/Frontend/DB.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 fig-frontend/src/Fig/Frontend/DB.hs (limited to 'fig-frontend/src/Fig/Frontend') 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 -- cgit v1.2.3