oracle-haskell

main :: IO ()
main = do
  withContext $ \ctx ->
    withPool ctx cfg return \pool ->
      withPoolConnection pool $ \conn ->
        withStatement conn False "select name from db.report_date where id = 1" $ \st -> do
          r <- executeStatement st ModeExecDefault
          f <- fetch st
          (DataVarchar v) <- getQueryValue st 1
          peekCStringLen (bytes v) >>= print