new module

1 files changed, 1 insertions, 10 deletions

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