react-flux-servant 0.1.0 → 0.1.1

raw patch · 3 files changed

+12/−1 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- React.Flux.Addons.Servant: instance forall k1 (sym :: GHC.Types.Symbol) (sub :: k1). (GHC.TypeLits.KnownSymbol sym, React.Flux.Addons.Servant.HasAjaxRequest sub) => React.Flux.Addons.Servant.HasAjaxRequest (sym Servant.API.Sub.:> sub)

- React.Flux.Addons.Servant: instance forall k1 (sym :: GHC.Types.Symbol) a (sub :: k1). (GHC.TypeLits.KnownSymbol sym, Web.HttpApiData.Internal.ToHttpApiData a, React.Flux.Addons.Servant.HasAjaxRequest sub) => React.Flux.Addons.Servant.HasAjaxRequest (Servant.API.Header.Header sym a Servant.API.Sub.:> sub)

- React.Flux.Addons.Servant: instance forall k1 a (sub :: k1). (Data.Aeson.Types.ToJSON.ToJSON a, React.Flux.Addons.Servant.HasAjaxRequest sub) => React.Flux.Addons.Servant.HasAjaxRequest (Servant.API.ReqBody.ReqBody '[Servant.API.ContentTypes.JSON] a Servant.API.Sub.:> sub)

- React.Flux.Addons.Servant: instance forall k1 v (sub :: k1) (sym :: GHC.Types.Symbol). (Web.HttpApiData.Internal.ToHttpApiData v, React.Flux.Addons.Servant.HasAjaxRequest sub) => React.Flux.Addons.Servant.HasAjaxRequest (Servant.API.Capture.Capture sym v Servant.API.Sub.:> sub)

+ React.Flux.Addons.Servant: instance forall k (sym :: GHC.Types.Symbol) (sub :: k). (GHC.TypeLits.KnownSymbol sym, React.Flux.Addons.Servant.HasAjaxRequest sub) => React.Flux.Addons.Servant.HasAjaxRequest (Servant.API.QueryParam.QueryFlag sym Servant.API.Sub.:> sub)

+ React.Flux.Addons.Servant: instance forall k (sym :: GHC.Types.Symbol) a (sub :: k). (GHC.TypeLits.KnownSymbol sym, Web.Internal.HttpApiData.ToHttpApiData a, React.Flux.Addons.Servant.HasAjaxRequest sub) => React.Flux.Addons.Servant.HasAjaxRequest (Servant.API.Header.Header sym a Servant.API.Sub.:> sub)

+ React.Flux.Addons.Servant: instance forall k a (sub :: k). (Data.Aeson.Types.ToJSON.ToJSON a, React.Flux.Addons.Servant.HasAjaxRequest sub) => React.Flux.Addons.Servant.HasAjaxRequest (Servant.API.ReqBody.ReqBody '[Servant.API.ContentTypes.JSON] a Servant.API.Sub.:> sub)

+ React.Flux.Addons.Servant: instance forall k v (sub :: k) (sym :: GHC.Types.Symbol). (Web.Internal.HttpApiData.ToHttpApiData v, React.Flux.Addons.Servant.HasAjaxRequest sub) => React.Flux.Addons.Servant.HasAjaxRequest (Servant.API.Capture.Capture sym v Servant.API.Sub.:> sub)

ChangeLog.md view

@@ -1,3 +1,7 @@+# 0.1.1++* Add instance for QueryFlag.+ # 0.1.0  * Initial release.  See the haddock for documentation.

react-flux-servant.cabal view

@@ -1,5 +1,5 @@ name:                react-flux-servant-version:             0.1.0+version:             0.1.1 synopsis:            Allow react-flux stores to send requests to a servant server category:            Web homepage:            https://bitbucket.org/wuzzeb/react-flux-servant

src/React/Flux/Addons/Servant.hs view

@@ -223,6 +223,13 @@             sym' = jsPack $ symbolVal (Proxy :: Proxy sym)             a' = jsPack $ T.unpack $ toUrlPiece a +instance (KnownSymbol sym, HasAjaxRequest sub) => HasAjaxRequest (QueryFlag sym :> sub) where+    type MkRequest (QueryFlag sym :> sub) = Bool -> MkRequest sub+    toRequest _ r False = toRequest (Proxy :: Proxy sub) r+    toRequest _ r True = toRequest (Proxy :: Proxy sub) r { rQuery = rQuery r ++ [(sym', "true")]}+        where+            sym' = jsPack $ symbolVal (Proxy :: Proxy sym)+ instance (KnownSymbol sym, ToHttpApiData a, HasAjaxRequest sub) => HasAjaxRequest (QueryParam sym a :> sub) where     type MkRequest (QueryParam sym a :> sub) = Maybe a -> MkRequest sub     toRequest _ r Nothing = toRequest (Proxy :: Proxy sub) r