ProxySQL bug #2619

proxysql-debug.cabal

name:                proxysql-debug
version:             0.1.0.0
build-type:          Simple
cabal-version:       >=1.10

executable proxysql-debug
  main-is:             ProxySqlTest.hs
  other-extensions:    OverloadedStrings
  build-depends:       base, mysql-haskell, resource-pool, io-streams
  default-language:    Haskell2010

ProxySqlTest.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Database.MySQL.Base
import qualified System.IO.Streams as Streams

import Control.Monad

main :: IO ()
main = do
  replicateM_ 10 $ do
    conn <- connect defaultConnectInfo {ciUser = "debug", ciPassword = "", ciPort = 6033}

    replicateM_ 10 $ do
      (defs, is) <- query_ conn "SELECT 1"
      print =<< Streams.toList is

stack.yaml

resolver: lts-14.3
packages:
  - .