connect :: ConnectInfo -> IO Connection
connect i = fmap Connection $ 
    createPool (connect' i) (\h -> quit h >> hClose h) 1 
    (connectionIdleTime i) (numConnection i)
connect :: ConnectInfo -> IO Connection
connect i = fmap Connection $ 
    createPool (connect' i) (\h -> quit h >> hClose h) 1 
    (connectionIdleTime i) (numConnection i)
connect i = fmap Connection $ 
    createPool (connect' i) (\h -> quit h >> hClose h) 1 
    (connectionIdleTime i) (numConnection i)