From 483cc9e1fe40899c7f045d71d75aaa5ca99db3fb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 12 Sep 2016 15:10:18 -0400 Subject: new module --- HTTP.hs | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'HTTP.hs') diff --git a/HTTP.hs b/HTTP.hs index f1e9e39..db9ef4d 100644 --- a/HTTP.hs +++ b/HTTP.hs @@ -14,6 +14,7 @@ module HTTP where import Types import Types.Storage +import HTTP.ProofOfWork import Serialization () import Servant.API import Data.Text @@ -40,16 +41,6 @@ type V1 = "v1" newtype Motd = Motd Text deriving (Generic) -data ProofOfWorkRequirement t - = Result t - | ProofOfWorkRequirement - { leadingZeros :: Int - , argon2Iterations :: Int - } - deriving (Generic) - -newtype ProofOfWork = ProofOfWork Text - type POWParam = QueryParam "proofofwork" ProofOfWork type ObjectIdent = Capture "ident" StorableObjectIdent -- cgit v1.2.3