diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-08-28 16:40:24 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-08-28 16:40:24 -0400 |
commit | d149bf03647b09caa2af9e55a392251e4d619640 (patch) | |
tree | 6e2f3336d48205041fb515dbdd550a31c16dab22 /HTTP/Server.hs | |
parent | 9908ae571c5b4086047443c8560cb65838b0caa2 (diff) | |
download | keysafe-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.hs | 6 |
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!" |