diff --git a/src/Servant/EventAPI.hs b/src/Servant/EventAPI.hs index 3b45641..b71cb78 100644 --- a/src/Servant/EventAPI.hs +++ b/src/Servant/EventAPI.hs @@ -79,11 +79,12 @@ class HasPointClient layout where type ToXhr layout :: * type FromXhr layout :: * type PointClient layout to from :: * - pointClientWithRoute + pointInputWithRoute :: Proxy layout -> PointReq -> BaseUrl - -> PointClient layout (ToXhr layout) (FromXhr layout) + -> ToXhr + pointDecodeWithRoute -- -> PointClient layout -- -> (to -> XhrRequest Text, XhrResponse -> Maybe from)