add - table mapping tx hashes to bodies.

it would make sense for this just to sit in the tx table, but see
doc/plugin-system.md
also note that I used a hand written migration file.  see comment in the file
about being unable to get the migration tool to run. :(

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

@@ -17,6 +17,7 @@ module Cardano.Db.Insert
   , insertStakeAddress
   , insertStakeRegistration
   , insertTx
+  , insertTxBody
   , insertTxIn
   , insertTxOut
   , insertWithdrawal
@@ -58,6 +59,7 @@ insertPoolHash = insertByReturnKey "PoolHash"
 insertPoolMetaData :: (MonadBaseControl IO m, MonadIO m) => PoolMetaData -> ReaderT SqlBackend m PoolMetaDataId
 insertPoolMetaData = insertByReturnKey "PoolMetaData"
 
+
 insertPoolOwner :: (MonadBaseControl IO m, MonadIO m) => PoolOwner -> ReaderT SqlBackend m PoolOwnerId
 insertPoolOwner = insertByReturnKey "PoolOwner"
 
@@ -85,6 +87,9 @@ insertStakeRegistration = insertByReturnKey "StakeRegistration"
 insertTx :: (MonadBaseControl IO m, MonadIO m) => Tx -> ReaderT SqlBackend m TxId
 insertTx = insertByReturnKey "Tx"
 
+insertTxBody :: (MonadBaseControl IO m, MonadIO m) => TxBody -> ReaderT SqlBackend m TxBodyId
+insertTxBody = insertByReturnKey "TxBody"
+
 insertTxIn :: (MonadBaseControl IO m, MonadIO m) => TxIn -> ReaderT SqlBackend m TxInId
 insertTxIn = insertByReturnKey "TxIn"
 

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

@@ -91,6 +91,11 @@ share
     size                Word64              sqltype=uinteger
     UniqueTx            hash
 
+  TxBody
+    hash                ByteString          sqltype=hash32type
+    body                ByteString          sqltype=bytea
+    UniqueTxBody        hash
+
   TxOut
     txId                TxId                -- This type is the primary key for the 'tx' table.
     index               Word16              sqltype=txindex

schema/migration-4-0001-20200605.sql

@@ -0,0 +1,31 @@
+-- Hand written migration because I cann't get the schema migration tool to work.
+-- see doc/schema-management.md for context.
+-- `cabal run cardano-db-sync-db-tool -- create-migration --mdir schema/` does not work.
+-- I've tried running it from within nix-shell.  I get the following:
+--
+--
+-- cabal: Could not resolve dependencies:
+-- [__0] trying: cardano-binary-test-1.3.0 (user goal)
+-- [__1] unknown package: quickcheck-instances (dependency of
+-- cardano-binary-test)
+-- [__1] fail (backjumping, conflict set: cardano-binary-test,
+-- quickcheck-instances)
+-- After searching the rest of the dependency tree exhaustively, these were the
+-- goals I've had most trouble fulfilling: cardano-binary-test,
+-- quickcheck-instances
+
+CREATE FUNCTION migrate() RETURNS void AS $$
+
+BEGIN
+  EXECUTE 'create table tx_body (id serial8 primary key unique, 
+                                 hash hash32type not null, 
+                                 body bytea not null)';
+  EXECUTE 'CREATE INDEX idx_tx_body_hash ON tx_body(hash);';
+  EXECUTE 'ALTER TABLE "tx_body" ADD CONSTRAINT "unique_tx_body" UNIQUE("hash")' ;
+END;
+
+$$ LANGUAGE plpgsql;
+
+SELECT migrate();
+
+DROP FUNCTION migrate();