Add module Marconi.Index.Common for common instances

marconi/marconi.cabal

@@ -51,6 +51,7 @@ library
   exposed-modules:
     Marconi.CLI
     Marconi.Index.AddressDatum
+    Marconi.Index.Common
     Marconi.Index.Datum
     Marconi.Index.EpochStakepoolSize
     Marconi.Index.ScriptTx

marconi/src/Marconi/Index/Common.hs

@@ -0,0 +1,18 @@
+module Marconi.Index.Common where
+
+import Cardano.Api qualified as C
+import Data.Functor ((<&>))
+import Data.Maybe
+import Data.Proxy (Proxy (Proxy))
+import Database.SQLite.Simple qualified as SQL
+import Database.SQLite.Simple.FromField qualified as SQL
+import Database.SQLite.Simple.ToField qualified as SQL
+
+instance SQL.ToField (C.Hash C.BlockHeader) where
+  toField f = SQL.toField $ C.serialiseToRawBytes f
+
+instance SQL.FromField (C.Hash C.BlockHeader) where
+   fromField f =
+      SQL.fromField f <&>
+        fromMaybe (error "Cannot deserialise block hash") .
+          C.deserialiseFromRawBytes (C.proxyToAsType Proxy)

marconi/src/Marconi/Index/ScriptTx.hs

@@ -38,6 +38,8 @@ import RewindableIndex.Storable (Buffered (getStoredEvents, persistToStorage), H
                                  filterWithQueryInterval)
 import RewindableIndex.Storable qualified as Storable
 
+import Marconi.Index.Common ()
+
 {- The first thing that we need to define for a new indexer is the `handler` data
    type, meant as a wrapper for the connection type (in this case the SQLite
    connection).