diff options
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) |