我通常通过作为参数传递:: 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)并使用它来验证用户。
有没有比创建另一个连接池更优雅的方法？