mirror of
https://github.com/logos-storage/logos-storage-proofs-circuits.git
synced 2026-01-03 05:53:11 +00:00
24 lines
621 B
Haskell
24 lines
621 B
Haskell
|
|
-- | Poseidon2 hash function for the bn128 curve's scalar field and t=3.
|
|
|
|
module Poseidon2
|
|
( Fr
|
|
, sponge1 , sponge2
|
|
, calcMerkleRoot , calcMerkleTree
|
|
, MerkleTree(..) , depthOf , merkleRootOf
|
|
, MerkleProof(..) , extractMerkleProof , extractMerkleProof_ , reconstructMerkleRoot
|
|
, compression
|
|
, permutation
|
|
)
|
|
where
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import ZK.Algebra.Curves.BN128.Fr.Mont (Fr)
|
|
|
|
import Poseidon2.Sponge
|
|
import Poseidon2.Merkle
|
|
import Poseidon2.Permutation
|
|
|
|
--------------------------------------------------------------------------------
|