Draft: Servant Api Specification
This PR does 3 things:
-
Specifies a modular definition for the Skete Servant api, along with associated clients and server. The design is granular to facilitate better testing (standalone clients are easier to test when their component apis are separate from the rest of the API)
-
Restructures the project to define a toplevel
RestAPI.hsmodule, with client/server/util definitions in an associatedRestAPI/*namespace. -
Adds the Servant-* dependencies, cleans up old code.
Addresses #21
Merge request reports
Activity
65 , (T.unpack . pvName $ pid) ++ ".cabal"], BSL.fromStrict r)) 48 return mResult 49 50 -- serveIndexH :: GitFat.GitFatConfig -> Handler BSL.ByteString 51 -- serveIndexH ss = 52 -- (Storage.storage ss :: GitFat.GitFat p Handler a -> Handler a) $ do 53 -- let ps = "all" 54 -- pis <- Storage.list ps 55 -- snd . createIndexTar . catMaybes <$> forM pis (\pid -> do 56 -- mc <- Storage.labelDataLookup ps pid "cabal" 57 -- case mc of 58 -- Nothing -> return Nothing 59 -- Just r -> r `deepseq` do 60 -- return $ Just (joinPath [ T.unpack . pvName $ pid 61 -- , show . pvVersion $ pid 62 -- , (T.unpack . pvName $ pid) ++ ".cabal"], BSL.fromStrict r)) -
These changes need to be discussed. I abandoned attempting to get it to compile when i realized there were
machines-related issues that needed to be worked out. Additionally, it looks like there's some confusion about what to do aboutHTTPPackageVersionvsPackageVersion. I can write a robust versioning datatype if you want. changed this line in version 3 of the diff
added 1 commit
- 71dca7f3 - remove cruft, add preliminary hackage Users api. TODO: clients, handlers, data api
added 1 commit
- 56004082 - rework the dir structure into something more sane, crank out User data types...
added 1 commit
- 73d2dbb4 - rework the dir structure into something more sane, crank out User data types...
added 1 commit
- d0c0c84b - rework the dir structure into something more sane, crank out User data types...
added 2 commits