{- Copyright 2016 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

{-# LANGUAGE DeriveGeneric #-}

module HTTP.ProofOfWork where

import Types
import qualified Data.Text as T
import GHC.Generics

data ProofOfWorkRequirement t
	= Result t
	| ProofOfWorkRequirement
		{ leadingZeros :: Int
		, argon2Iterations :: Int
		}
	deriving (Generic)

newtype ProofOfWork = ProofOfWork T.Text