我通常将:: Hasql.Pool.Pool传递给serve函数作为参数run作为main :: IO ()的参数
但自从我开始计划使用:: BasicAuthCheck User进行身份验证后，我开始在:: Hasql.Pool.Pool内部:: BasicAuthCheck User开始需要:: BasicAuthData -> IO (BasicAuthResult User)。
我目前的解决方法是在:: Hasql.Pool.Pool内创建另一个:: BasicAuthData -> IO (BasicAuthResult User)并使用它来验证用户。
是否有比创建另一个连接池更优雅的方式？