Fix migration error on checkpoint table

SQLite doesn't support removing columns, so we put them back as "unused" fields. https://www.sqlite.org/lang_altertable.html#altertableishard Closes #1621
cardano-foundation · May 5, 2020 · d2248ed · d2248ed
1 parent 76f0c97
commit d2248ed
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/lib/core/src/Cardano/Wallet/DB/Sqlite.hs b/lib/core/src/Cardano/Wallet/DB/Sqlite.hs
@@ -748,6 +748,8 @@ mkCheckpointEntity wid wal =
         , checkpointEpochStability = coerce (bp ^. #getEpochStability)
         , checkpointActiveSlotCoeff =
             W.unActiveSlotCoefficient (bp ^. #getActiveSlotCoefficient)
+        , checkpointFeePolicyUnused = ""
+        , checkpointTxMaxSizeUnused = 0
         }
     utxo =
         [ UTxO wid sl (TxId input) ix addr coin
@@ -776,8 +778,10 @@ checkpointFromEntity cp utxo s =
         bh
         (BlockId genesisHash)
         genesisStart
+        _feePolicyUnused
         slotLength
         epochLength
+        _txMaxSizeUnused
         epochStability
         activeSlotCoeff
         ) = cp

diff --git a/lib/core/src/Cardano/Wallet/DB/Sqlite/TH.hs b/lib/core/src/Cardano/Wallet/DB/Sqlite/TH.hs
@@ -133,8 +133,10 @@ Checkpoint
     checkpointBlockHeight       Word32       sql=block_height
     checkpointGenesisHash       BlockId      sql=genesis_hash
     checkpointGenesisStart      UTCTime      sql=genesis_start
+    checkpointFeePolicyUnused   Text         sql=fee_policy
     checkpointSlotLength        Word64       sql=slot_length
     checkpointEpochLength       Word32       sql=epoch_length
+    checkpointTxMaxSizeUnused   Word16       sql=tx_max_size
     checkpointEpochStability    Word32       sql=epoch_stability
     checkpointActiveSlotCoeff   Double       sql=active_slot_coeff