plonky2-verifier/testmain.hs

module Main where

--------------------------------------------------------------------------------

import Data.Aeson

import Types
import Hash
import Digest
import Goldilocks

import qualified Data.ByteString.Char8      as B
import qualified Data.ByteString.Lazy.Char8 as L

--------------------------------------------------------------------------------

main = do
  let publicIO = MkPublicInputs [0, 1, 3736710860384812976]
  
  --let prefix = "fibonacci"
  --let prefix = "recursion_outer"
  let prefix = "lookup"

  text_common <- L.readFile ("json/" ++ prefix ++ "_common.json")
  text_proof  <- L.readFile ("json/" ++ prefix ++ "_proof.json" )
  text_vkey   <- L.readFile ("json/" ++ prefix ++ "_vkey.json"  )

  -- let Just vkey = decode text_vkey :: Maybe VerifierOnlyCircuitData
  -- print vkey
  -- putStrLn ""
  -- L.putStr (encode vkey)

  let ei = eitherDecode text_common :: Either String CommonCircuitData
  print ei
  putStrLn ""