initial http api using servant

1 files changed, 51 insertions, 0 deletions

diff --git a/HTTP/Server.hs b/HTTP/Server.hs
new file mode 100644
index 0000000..5df3d06
--- /dev/null
+++ b/HTTP/Server.hs
@@ -0,0 +1,51 @@
+{- Copyright 2016 Joey Hess <id@joeyh.name>
+ -
+ - Licensed under the GNU AGPL version 3 or higher.
+ -}
+
+module HTTP.Server where
+
+import HTTP
+import Types
+import Types.Storage
+import Serialization ()
+import Servant.API
+import Servant.Server
+import Data.Proxy
+import Network.Wai
+import Network.Wai.Handler.Warp
+
+runServer :: Int -> IO ()
+runServer port = run port app
+
+app :: Application
+app = serve userAPI server
+
+userAPI :: Proxy HttpAPI
+userAPI = Proxy
+
+server :: Server HttpAPI
+server = apiVersion
+	:<|> motd
+	:<|> proofOfWorkRequirement
+	:<|> getObject
+	:<|> putObject
+	:<|> countObjects
+
+apiVersion :: Handler APIVersion
+apiVersion = return (APIVersion 1)
+
+motd :: Handler Motd
+motd = return $ Motd "Hello World!"
+
+proofOfWorkRequirement :: Handler (Maybe ProofOfWorkRequirement)
+proofOfWorkRequirement = return $ Just $ ProofOfWorkRequirement 3 1
+
+getObject :: StorableObjectIdent -> Maybe ProofOfWork -> Handler StorableObject
+getObject _i _pow = undefined
+
+putObject :: StorableObjectIdent -> Maybe ProofOfWork -> StorableObject -> Handler StoreResult
+putObject _i _pow _o = return StoreSuccess
+
+countObjects :: Maybe ProofOfWork -> Handler CountResult
+countObjects _pow = return $ CountResult 42