mkpool :: IO (Pool Connection)
mkpool =
  createPool
    (connect connectInfo)       -- open action
    close                              -- close action
    1                                  -- stripes
    20                                 -- max keep alive (s)
    10
mkpool :: IO (Pool Connection)
mkpool =
  createPool
    (connect connectInfo)       -- open action
    close                              -- close action
    1                                  -- stripes
    20                                 -- max keep alive (s)
    10
mkpool =
  createPool
    (connect connectInfo)       -- open action
    close                              -- close action
    1                                  -- stripes
    20                                 -- max keep alive (s)
    10