tmp-postgres-1.28.1.0: profiling/Main.hs

import Database.Postgres.Temp
import Control.Exception

withLoop :: IO ()
withLoop = either throwIO pure =<< with (const $ pure ())

withCacheLoop :: IO ()
withCacheLoop = withDbCache $ \cache -> either throwIO pure =<<
  withConfig (defaultConfig <> cacheConfig cache) (const $ pure ())

main :: IO ()
main = withCacheLoop