mirror of
https://github.com/logos-storage/nim-goldilocks-hash.git
synced 2026-01-08 08:33:07 +00:00
19 lines
528 B
Haskell
19 lines
528 B
Haskell
|
|
module Permutations where
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import qualified Poseidon2.Permutation as Poseidon2
|
|
import qualified Monolith.Permutation as Monolith
|
|
|
|
import Common
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
permute :: Hash -> State -> State
|
|
permute hash = case hash of
|
|
Poseidon2 -> Poseidon2.permutation
|
|
Monolith -> Monolith.permutation
|
|
|
|
--------------------------------------------------------------------------------
|