Make SlotInternalIndex values persistable.

cardano-foundation · Jul 6, 2020 · 8022262 · 8022262
1 parent 859f529
commit 8022262
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/lib/core/src/Cardano/Wallet/DB/Sqlite/Types.hs b/lib/core/src/Cardano/Wallet/DB/Sqlite/Types.hs
@@ -35,6 +35,7 @@ import Cardano.Wallet.Primitive.Types
     , PoolId
     , PoolOwner (..)
     , SlotId (..)
+    , SlotInternalIndex (..)
     , SlotNo (..)
     , StakeKeyCertificate (..)
     , StakePoolMetadataHash (..)
@@ -327,6 +328,22 @@ instance PathPiece SlotId where
     toPathPiece = error "toPathPiece stub needed for persistent"
     fromPathPiece = error "fromPathPiece stub needed for persistent"
 
+----------------------------------------------------------------------------
+-- SlotInternalIndex
+
+instance PersistFieldSql SlotInternalIndex where
+    sqlType _ = sqlType (Proxy @Word64)
+
+instance PersistField SlotInternalIndex where
+    toPersistValue = toPersistValue . unSlotInternalIndex
+    fromPersistValue = fmap SlotInternalIndex . fromPersistValue
+
+instance ToJSON SlotInternalIndex where
+    toJSON = toJSON . unSlotInternalIndex
+
+instance FromJSON SlotInternalIndex where
+    parseJSON = fmap SlotInternalIndex . parseJSON
+
 ----------------------------------------------------------------------------
 -- TxStatus