Add identities for HashLease

packages/modules/packages/diviner/packages/hash/src/Payload/HashLease.ts

@@ -1,4 +1,7 @@
-import type { Payload } from '@xyo-network/payload-model'
+import { AsObjectFactory } from '@xylabs/object'
+import {
+  isPayloadOfSchemaType, isPayloadOfSchemaTypeWithSources, type Payload, type WithSources,
+} from '@xyo-network/payload-model'
 
 export const HashLeaseSchema = 'network.xyo.hash.lease' as const
 export type HashLeaseSchema = typeof HashLeaseSchema
@@ -12,3 +15,17 @@ export type HashLease = Payload<
   },
   HashLeaseSchema
 >
+
+/**
+ * Identity function for HashLease payload
+ */
+export const isHashLease = isPayloadOfSchemaType<HashLease>(HashLeaseSchema)
+export const asHashLease = AsObjectFactory.create<HashLease>(isHashLease)
+export const asOptionalHashLease = AsObjectFactory.createOptional<HashLease>(isHashLease)
+
+/**
+ * Identity function for HashLease payload with sources
+ */
+export const isHashLeaseWithSources = isPayloadOfSchemaTypeWithSources<WithSources<HashLease>>(HashLeaseSchema)
+export const asHashLeaseWithSources = AsObjectFactory.create<WithSources<HashLease>>(isHashLeaseWithSources)
+export const asOptionalHashLeaseWithSources = AsObjectFactory.createOptional<WithSources<HashLease>>(isHashLeaseWithSources)