Automatically recovering from "connection disconnected"

[tchoutri]

When inserting batches of data, I'm very often getting hit by

Exception: SqlError {sqlState = "", sqlExecStatus = FatalError,
  sqlErrorMsg = "connection disconnected", sqlErrorDetail = "", sqlErrorHint = ""}

This comes from how withConnection is defined:

-- | Atomically perform an action with the database handle, if there is one.
withConnection :: Connection -> (PQ.Connection -> IO a) -> IO a
withConnection Connection{..} m = do
    withMVar connectionHandle $ \conn -> do
        if PQ.isNullConnection conn
          then throwIO disconnectedError
          else m conn

I'd like to know if there are common ways to automatically reconnect upon such an exception.

Should I do something like use a try-catch at the db pool level?

[tchoutri]

@phadej do you know if there is some kind of hook I can use? I'm having a hard time determining the real cause of this but I could find some kind of workaround for the time being.