From 6587c70dff3e9f8826fd33406c1e28494c984742 Mon Sep 17 00:00:00 2001
From: KovalevDima <onarainydayillwinanyway@gmail.com>
Date: Fri, 16 Oct 2026 20:08:36 +0000
Subject: [PATCH] Handle ProfileEvents in insert queries

---
 library/ClickHaskell.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/library/ClickHaskell.hs b/library/ClickHaskell.hs
index 552a923..d42755a 100644
--- a/library/ClickHaskell.hs
+++ b/library/ClickHaskell.hs
@@ -223,6 +223,7 @@ insert (MkInsert mkQuery dbSettings parameters) conn columnsData = do
         writeToConnection connState (serializeColumns @columns columnsData)
         writeToConnection connState (\rev -> serialize rev . Data $ mkDataPacket "" 0 0)
         loopInsert connState
+      ProfileEvents _     -> loopInsert connState
       EndOfStream         -> pure ()
       Exception exception -> throwIO (DatabaseException exception)
       otherPacket         -> throwIO (InternalError $ UnexpectedPacketType $ serverPacketToNum otherPacket)