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)