useConnection :: (Handle -> IO a) -> Connection -> IO a
useConnection f (Connection p) = withResource p f
useConnection :: (Handle -> IO a) -> Connection -> IO a
useConnection f (Connection p) = withResource p f
useConnection f (Connection p) = withResource p f