Fix gov flag

Fixes #1606

Author: kderme

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Insert.hs

@@ -543,7 +543,7 @@ insertCertificate syncEnv isMember blkId txId epochNo slotNo redeemers (Generic.
         liftIO $
           logWarning tracer "insertCertificate: Unhandled DCertGenesis certificate"
     Right (ConwayTxCertDeleg deleg) ->
-      when (ioShelley iopts) $ insertConwayDelegCert syncEnv txId idx mRedeemerId epochNo slotNo deleg
+      insertConwayDelegCert syncEnv txId idx mRedeemerId epochNo slotNo deleg
     Right (ConwayTxCertPool pool) ->
       when (ioShelley iopts) $ insertPoolCert tracer cache isMember network epochNo blkId txId idx pool
     Right (ConwayTxCertGov c) ->
@@ -687,20 +687,28 @@ insertConwayDelegCert ::
   ExceptT SyncNodeError (ReaderT SqlBackend m) ()
 insertConwayDelegCert syncEnv txId idx mRedeemerId epochNo slotNo dCert =
   case dCert of
-    ConwayRegCert cred _dep -> insertStakeRegistration epochNo txId idx $ Generic.annotateStakingCred network cred
-    ConwayUnRegCert cred _dep -> insertStakeDeregistration cache network epochNo txId idx mRedeemerId cred
+    ConwayRegCert cred _dep ->
+      when (ioShelley iopts) $
+        insertStakeRegistration epochNo txId idx $ Generic.annotateStakingCred network cred
+    ConwayUnRegCert cred _dep ->
+      when (ioShelley iopts) $
+        insertStakeDeregistration cache network epochNo txId idx mRedeemerId cred
     ConwayDelegCert cred delegatee -> insertDeleg cred delegatee
     ConwayRegDelegCert cred delegatee _dep -> do
-      insertStakeRegistration epochNo txId idx $ Generic.annotateStakingCred network cred
+      when (ioShelley iopts) $
+        insertStakeRegistration epochNo txId idx $ Generic.annotateStakingCred network cred
       insertDeleg cred delegatee
   where
     insertDeleg cred = \case
-      DelegStake poolkh -> insertDelegation trce cache network epochNo slotNo txId idx mRedeemerId cred poolkh
+      DelegStake poolkh ->
+        when (ioShelley iopts) $
+          insertDelegation trce cache network epochNo slotNo txId idx mRedeemerId cred poolkh
       DelegVote drep ->
         when (ioGov iopts) $
           insertDelegationVote cache network txId idx cred drep
       DelegStakeVote poolkh drep -> do
-        insertDelegation trce cache network epochNo slotNo txId idx mRedeemerId cred poolkh
+        when (ioShelley iopts) $
+          insertDelegation trce cache network epochNo slotNo txId idx mRedeemerId cred poolkh
         when (ioGov iopts) $
           insertDelegationVote cache network txId idx cred drep