diff options
| author | LLLL Colonq <llll@colonq> | 2024-03-19 03:37:33 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-03-19 03:37:33 -0400 |
| commit | fbabf1d29a8a97d57d9609666c81701fe12979e1 (patch) | |
| tree | c9e7f4c0185dedf084558aeeea69140a326a19ef /fig-frontend/src/Fig/Frontend/DB.hs | |
| parent | 7aa60d33eff21ccdaa31ccd5dd64196990bb3dea (diff) | |
Update
Diffstat (limited to 'fig-frontend/src/Fig/Frontend/DB.hs')
| -rw-r--r-- | fig-frontend/src/Fig/Frontend/DB.hs | 7 |
1 files changed, 4 insertions, 3 deletions
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) |