db-sync: Fix DB types for txInvalidBefore/txInvalidHereafter

The schema definition was incorrectly making these two fields Word32
and they need to be Word64.

Closes: #430

Author: erikd

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

@@ -166,8 +166,8 @@ insertTx tracer env blkId epochNo blockIndex tx = do
                 , DB.txFee = DB.DbLovelace (fromIntegral . unCoin $ Generic.txFees tx)
                 , DB.txDeposit = fromIntegral (inSum + withdrawalSum) - fromIntegral (outSum + fees)
                 , DB.txSize = Generic.txSize tx
-                , DB.txInvalidBefore = unSlotNo <$> Generic.txInvalidBefore tx
-                , DB.txInvalidHereafter = unSlotNo <$> Generic.txInvalidHereafter tx
+                , DB.txInvalidBefore = DbWord64 . unSlotNo <$> Generic.txInvalidBefore tx
+                , DB.txInvalidHereafter = DbWord64 . unSlotNo <$> Generic.txInvalidHereafter tx
                 }
 
     -- Insert outputs for a transaction before inputs in case the inputs for this transaction

cardano-db/src/Cardano/Db/Schema.hs

@@ -104,9 +104,10 @@ share
     deposit             Int64                                   -- Needs to allow negaitve values.
     size                Word64              sqltype=uinteger
 
-    invalidBefore       Word64 Maybe        sqltype=uinteger
-    invalidHereafter    Word64 Maybe        sqltype=uinteger
+    invalidBefore       DbWord64 Maybe      sqltype=word64type
+    invalidHereafter    DbWord64 Maybe      sqltype=word64type
     UniqueTx            hash
+    deriving Show
 
   StakeAddress          -- Can be an address of a script hash
     hashRaw             ByteString          sqltype=addr29type

schema/migration-2-0004-20201109.sql renamed to schema/migration-2-0004-20201209.sql

@@ -6,14 +6,15 @@ DECLARE
 BEGIN
   SELECT stage_two + 1 INTO next_version FROM schema_version ;
   IF next_version = 4 THEN
-    EXECUTE 'ALTER TABLE "tx" ADD COLUMN "invalid_before" uinteger NULL' ;
-    EXECUTE 'ALTER TABLE "tx" ADD COLUMN "invalid_hereafter" uinteger NULL' ;
+    EXECUTE 'ALTER TABLE "schema_version" ALTER COLUMN "id" TYPE INT8' ;
+    EXECUTE 'ALTER TABLE "tx" ADD COLUMN "invalid_before" word64type NULL' ;
+    EXECUTE 'ALTER TABLE "tx" ADD COLUMN "invalid_hereafter" word64type NULL' ;
     EXECUTE 'CREATe TABLE "ma_tx_mint"("id" SERIAL8  PRIMARY KEY UNIQUE,"policy" hash28type NOT NULL,"name" asset32type NOT NULL,"quantity" int65type NOT NULL,"tx_id" INT8 NOT NULL)' ;
     EXECUTE 'ALTER TABLE "ma_tx_mint" ADD CONSTRAINT "unique_ma_tx_mint" UNIQUE("policy","name","tx_id")' ;
-    EXECUTE 'ALTER TABLE "ma_tx_mint" ADD CONSTRAINT "ma_tx_mint_tx_id_fkey" FOREIGN KEY("tx_id") REFERENCES "tx"("id")' ;
+    EXECUTE 'ALTER TABLE "ma_tx_mint" ADD CONSTRAINT "ma_tx_mint_tx_id_fkey" FOREIGN KEY("tx_id") REFERENCES "tx"("id") ON DELETE RESTRICT  ON UPDATE RESTRICT' ;
     EXECUTE 'CREATe TABLE "ma_tx_out"("id" SERIAL8  PRIMARY KEY UNIQUE,"policy" hash28type NOT NULL,"name" asset32type NOT NULL,"quantity" word64type NOT NULL,"tx_out_id" INT8 NOT NULL)' ;
     EXECUTE 'ALTER TABLE "ma_tx_out" ADD CONSTRAINT "unique_ma_tx_out" UNIQUE("policy","name","tx_out_id")' ;
-    EXECUTE 'ALTER TABLE "ma_tx_out" ADD CONSTRAINT "ma_tx_out_tx_out_id_fkey" FOREIGN KEY("tx_out_id") REFERENCES "tx_out"("id")' ;
+    EXECUTE 'ALTER TABLE "ma_tx_out" ADD CONSTRAINT "ma_tx_out_tx_out_id_fkey" FOREIGN KEY("tx_out_id") REFERENCES "tx_out"("id") ON DELETE RESTRICT  ON UPDATE RESTRICT' ;
     -- Hand written SQL statements can be added here.
     UPDATE schema_version SET stage_two = next_version ;
     RAISE NOTICE 'DB has been migrated to stage_two version %', next_version ;