fields of ‘SqlBackend’ not initialised: connInsertManySql, connUpsertSql

[Profpatsch]

Probably a new version of persistent:

src/Database/Persist/ODBC.hs:128:12: warning: [-Wmissing-fields]
    • Fields of ‘SqlBackend’ not initialised: connInsertManySql,
                                              connUpsertSql
    • In the first argument of ‘return’, namely
        ‘SqlBackend
           {connLogFunc = logFunc, connPrepare = prepare' conn,
            connStmtMap = smap, connInsertSql = dbmsInsertSql mig,
            connClose = O.disconnect conn, connMigrateSql = dbmsMigrate mig,
            connBegin = const
                        $ E.catch (O.commit conn) (\ (_ :: E.SomeException) -> return ()),
            connCommit = const $ O.commit conn,
            connRollback = const $ O.rollback conn,
            connEscapeName = dbmsEscape mig, connNoLimit = "",
            connRDBMS = T.pack $ show (dbmsType mig),
            connLimitOffset = dbmsLimitOffset mig}’
      In a stmt of a 'do' block:
        return
          (SqlBackend
             {connLogFunc = logFunc, connPrepare = prepare' conn,
              connStmtMap = smap, connInsertSql = dbmsInsertSql mig,
              connClose = O.disconnect conn, connMigrateSql = dbmsMigrate mig,
              connBegin = const
                          $ E.catch (O.commit conn) (\ (_ :: E.SomeException) -> return ()),
              connCommit = const $ O.commit conn,
              connRollback = const $ O.rollback conn,
              connEscapeName = dbmsEscape mig, connNoLimit = "",
              connRDBMS = T.pack $ show (dbmsType mig),
              connLimitOffset = dbmsLimitOffset mig})
      In the expression:
        do { let mig = ...;
             smap <- newIORef Map.empty;
             return
               (SqlBackend
                  {connLogFunc = logFunc, connPrepare = prepare' conn,
                   connStmtMap = smap, connInsertSql = dbmsInsertSql mig,
                   connClose = O.disconnect conn, connMigrateSql = dbmsMigrate mig,
                   connBegin = const
                               $ E.catch (O.commit conn) (\ (_ :: E.SomeException) -> return ()),
                   connCommit = const $ O.commit conn,
                   connRollback = const $ O.rollback conn,
                   connEscapeName = dbmsEscape mig, connNoLimit = "",
                   connRDBMS = T.pack $ show (dbmsType mig),
                   connLimitOffset = dbmsLimitOffset mig}) }