summaryrefslogtreecommitdiffhomepage
path: root/HTTP/Server.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2016-08-28 16:40:24 -0400
committerJoey Hess <joeyh@joeyh.name>2016-08-28 16:40:24 -0400
commitd149bf03647b09caa2af9e55a392251e4d619640 (patch)
tree6e2f3336d48205041fb515dbdd550a31c16dab22 /HTTP/Server.hs
parent9908ae571c5b4086047443c8560cb65838b0caa2 (diff)
downloadkeysafe-d149bf03647b09caa2af9e55a392251e4d619640.tar.gz
simplify http api, remove apiversion
Not needed since all routes are tagged with the api version.
Diffstat (limited to 'HTTP/Server.hs')
-rw-r--r--HTTP/Server.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/HTTP/Server.hs b/HTTP/Server.hs
index a26cd5e..7086167 100644
--- a/HTTP/Server.hs
+++ b/HTTP/Server.hs
@@ -44,15 +44,11 @@ userAPI :: Proxy HttpAPI
userAPI = Proxy
server :: ServerState -> Server HttpAPI
-server st = apiVersion
- :<|> motd
+server st = motd
:<|> getObject st
:<|> putObject st
:<|> countObjects st
-apiVersion :: Handler APIVersion
-apiVersion = return (APIVersion 1)
-
motd :: Handler Motd
motd = return $ Motd "Hello World!"