servant-purescript 0.9.0.0 → 0.9.0.1

raw patch · 3 files changed

+6/−3 lines, 3 files

Files

• servant-purescript.cabal +1/−1
• src/Servant/PureScript/CodeGen.hs +4/−0
• src/Servant/PureScript/Internal.hs +1/−2

@@ -1,5 +1,5 @@ name:                servant-purescript-version:             0.9.0.0+version:             0.9.0.1 synopsis:            Generate PureScript accessor functions for you servant API description:         Please see README.md homepage:            https://github.com/eskimor/servant-purescript#readme

@@ -116,6 +116,9 @@       </> genBuildQueryArgs (req ^. reqUrl ^. queryStr)       </> hang 6 ("let reqUrl ="     <+> genBuildURL (req ^. reqUrl))       </> "let reqHeaders =" </> indent 6 (req ^. reqHeaders ^. to genBuildHeaders)+      </> case req ^. reqBody of+             Nothing -> ""+             Just _ -> "let encodeJson = case spOpts_.encodeJson of SPSettingsEncodeJson_ e -> e"       </> "let affReq =" <+> hang 2 ( "defaultRequest" </>             "{ method ="  <+> "httpMethod"         </> ", url ="     <+> "reqUrl"@@ -125,6 +128,7 @@               Just _  -> ", content =" <+> "toNullable <<< Just <<< stringify <<< encodeJson $ reqBody" </> "}"       )       </> "affResp <- affjax affReq"+      </> "let decodeJson = case spOpts_.decodeJson of SPSettingsDecodeJson_ d -> d"       </> "getResult affReq decodeJson affResp"     ) <> line 

@@ -101,10 +101,9 @@         , ImportLine "Network.HTTP.Affjax" (Set.fromList [ "AJAX" ])         , ImportLine "Data.Nullable" (Set.fromList [ "toNullable" ])         , ImportLine "Servant.PureScript.Affjax" (Set.fromList [ "AjaxError", "defaultRequest", "affjax" ])-        , ImportLine "Servant.PureScript.Settings" (Set.fromList [ "SPSettings_(..)", "gDefaultToURLPiece" ])+        , ImportLine "Servant.PureScript.Settings" (Set.fromList [ "SPSettings_(..)", "SPSettingsDecodeJson_(..)", "SPSettingsEncodeJson_(..)", "gDefaultToURLPiece" ])         , ImportLine "Servant.PureScript.Util" (Set.fromList [ "encodeListQuery", "encodeURLPiece", "encodeQueryItem", "getResult", "encodeHeader" ])         , ImportLine "Prim" (Set.fromList [ "String" ]) -- For baseURL!-        , ImportLine "Data.Argonaut.Generic.Aeson" (Set.fromList [ "encodeJson", "decodeJson" ]) -- Should not be necessary - compiler bug!         , ImportLine "Data.Maybe" (Set.fromList [ "Maybe(..)"])         , ImportLine "Data.String" (Set.fromList ["joinWith"])         , ImportLine "Data.Array" (Set.fromList ["catMaybes", "null"])