From fbabf1d29a8a97d57d9609666c81701fe12979e1 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 19 Mar 2024 03:37:33 -0400 Subject: Update --- fig-frontend/src/Fig/Frontend/DB.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'fig-frontend/src/Fig/Frontend/DB.hs') diff --git a/fig-frontend/src/Fig/Frontend/DB.hs b/fig-frontend/src/Fig/Frontend/DB.hs index bcf00f2..b0f065d 100644 --- a/fig-frontend/src/Fig/Frontend/DB.hs +++ b/fig-frontend/src/Fig/Frontend/DB.hs @@ -5,10 +5,11 @@ import Control.Error.Util (hush) import qualified Database.Redis as Redis import Fig.Prelude +import Fig.Frontend.Utils -connect :: MonadIO m => m Redis.Connection -connect = liftIO $ Redis.checkedConnect Redis.defaultConnectInfo - { Redis.connectHost = "shiro" +connect :: MonadIO m => Config -> m Redis.Connection +connect cfg = liftIO $ Redis.checkedConnect Redis.defaultConnectInfo + { Redis.connectHost = unpack cfg.dbHost } get :: MonadIO m => Redis.Connection -> ByteString -> m (Maybe ByteString) -- cgit v1.2.3