git.iko.soy/typeable/servant
on master help sign in
Add record to Req type

This is needed for servant-js to know whether to call JSON.stringify() on the request body or just send it raw.

commit62def38a9beec8c0d952660274d65808c2a65a8e authorAndrew Cady <d@jerkface.net> dateSun 16 Sep 2018, 19:12 (8 years ago) parentaf7ba3d
3 files changed+4−2
compare with master
unifiedsplit
servant-foreign/servant-foreign.cabal+1−1 servant-foreign/src/Servant/Foreign.hs+1 servant-foreign/src/Servant/Foreign/Internal.hs+2−1
servant-foreign/servant-foreign.cabal+1−1
@@ -1,5 +1,5 @@
11name: servant-foreign
2−version: 0.11.1
2+version: 0.11.2
33x-revision: 3
44synopsis: Helpers for generating clients for servant APIs in any programming language
55description:
servant-foreign/src/Servant/Foreign.hs+1
@@ -21,6 +21,7 @@ module Servant.Foreign
2121 , reqMethod
2222 , reqHeaders
2323 , reqBody
24+ , reqBodyIsJSON
2425 , reqReturnType
2526 , reqFuncName
2627 , path
servant-foreign/src/Servant/Foreign/Internal.hs+2−1
@@ -130,13 +130,14 @@ data Req f = Req
130130 , _reqBody :: Maybe f
131131 , _reqReturnType :: Maybe f
132132 , _reqFuncName :: FunctionName
133+ , _reqBodyIsJSON :: Bool
133134 }
134135 deriving (Data, Eq, Show, Typeable)
135136
136137makeLenses ''Req
137138
138139defReq :: Req ftype
139−defReq = Req defUrl "GET" [] Nothing Nothing (FunctionName [])
140+defReq = Req defUrl "GET" [] Nothing Nothing (FunctionName []) True
140141
141142-- | 'HasForeignType' maps Haskell types with types in the target
142143-- language of your backend. For example, let's say you're