Add a configuration mapping to Axios

servant-js/src/Servant/JS.hs

@@ -98,6 +98,8 @@ module Servant.JS
   , -- * Axios code generation
     axios
   , axiosWith
+  , AxiosOptions(..)
+  , defAxiosOptions
 
   , -- * Misc.
     listFromAPI

servant-js/src/Servant/JS/Axios.hs

@@ -6,28 +6,53 @@ import Data.Char (toLower)
 import Data.List
 import Data.Monoid
 
+-- | Axios 'configuration' type
+-- Let you customize the generation using Axios capabilities
+data AxiosOptions = AxiosOptions
+  { -- | indicates whether or not cross-site Access-Control requests
+    -- should be made using credentials
+    withCredentials :: !Bool
+    -- | the name of the cookie to use as a value for xsrf token
+  , xsrfCookieName :: !(Maybe String)
+    -- | the name of the header to use as a value for xsrf token
+  , xsrfHeaderName :: !(Maybe String)
+  }
+
+-- | Default instance of the AxiosOptions
+-- Defines the settings as they are in the Axios documentation
+-- by default
+defAxiosOptions :: AxiosOptions
+defAxiosOptions = AxiosOptions
+  { withCredentials = False
+  , xsrfCookieName = Nothing
+  , xsrfHeaderName = Nothing
+  }
+
 -- | Generate regular javacript functions that use
 --   the axios library, using default values for 'CommonGeneratorOptions'.
-axios :: JavaScriptGenerator
-axios = axiosWith defCommonGeneratorOptions
+axios :: AxiosOptions -> JavaScriptGenerator
+axios aopts = axiosWith aopts defCommonGeneratorOptions
 
 -- | Generate regular javascript functions that use the axios library.
-axiosWith :: CommonGeneratorOptions -> JavaScriptGenerator
-axiosWith opts = intercalate "\n\n" . map (generateAxiosJSWith opts)
+axiosWith :: AxiosOptions -> CommonGeneratorOptions -> JavaScriptGenerator
+axiosWith aopts opts = intercalate "\n\n" . map (generateAxiosJSWith aopts opts)
 
 -- | js codegen using axios library using default options
-generateAxiosJS :: AjaxReq -> String
-generateAxiosJS = generateAxiosJSWith defCommonGeneratorOptions
+generateAxiosJS :: AxiosOptions -> AjaxReq -> String
+generateAxiosJS aopts = generateAxiosJSWith aopts defCommonGeneratorOptions
     
 -- | js codegen using axios library
-generateAxiosJSWith :: CommonGeneratorOptions -> AjaxReq -> String
-generateAxiosJSWith opts req = "\n" <>
+generateAxiosJSWith :: AxiosOptions -> CommonGeneratorOptions -> AjaxReq -> String
+generateAxiosJSWith aopts opts req = "\n" <>
     fname <> " = function(" <> argsStr <> ")\n"
  <> "{\n"
  <> "  return axios({ url: " <> url <> "\n"
  <> "    , method: '" <> method <> "'\n"
  <> dataBody
  <> reqheaders
+ <> withCreds
+ <> xsrfCookie
+ <> xsrfHeader
  <> "    });\n"
  <> "}\n"
 
@@ -55,10 +80,25 @@ generateAxiosJSWith opts req = "\n" <>
                  "    , responseType: 'json'\n"
             else ""
 
+        withCreds =
+          if withCredentials aopts
+            then "    , withCredentials: true\n"
+            else ""
+
+        xsrfCookie = 
+          case xsrfCookieName aopts of
+            Just name -> "    , xsrfCookieName: '" <> name <> "'\n"
+            Nothing   -> ""
+
+        xsrfHeader =
+          case xsrfHeaderName aopts of
+            Just name -> "    , xsrfHeaderName: '" <> name <> "'\n"
+            Nothing   -> ""
+
         reqheaders =
           if null hs
             then ""
-            else "    , headers: { " ++ headersStr ++ " }\n"
+            else "    , headers: { " <> headersStr <> " }\n"
 
           where headersStr = intercalate ", " $ map headerStr hs
                 headerStr header = "\"" ++

servant-js/test/Servant/JSSpec.hs

@@ -61,10 +61,10 @@ data TestNames = Vanilla
                  deriving (Show, Eq)
 
 customOptions :: CommonGeneratorOptions
-customOptions = defCommonGeneratorOptions {
-            successCallback = "okCallback",
-            errorCallback = "errorCallback"
-        }
+customOptions = defCommonGeneratorOptions
+  { successCallback = "okCallback"
+  , errorCallback = "errorCallback"
+  }
                  
 spec :: Spec
 spec = describe "Servant.JQuery" $ do
@@ -74,11 +74,11 @@ spec = describe "Servant.JQuery" $ do
     generateJSSpec JQueryCustom  (JQ.generateJQueryJSWith customOptions)
     generateJSSpec Angular       (NG.generateAngularJS NG.defAngularOptions)
     generateJSSpec AngularCustom (NG.generateAngularJSWith NG.defAngularOptions customOptions)
-    generateJSSpec Axios        AX.generateAxiosJS
-    generateJSSpec AxiosCustom  (AX.generateAxiosJSWith customOptions)
+    generateJSSpec Axios        (AX.generateAxiosJS AX.defAxiosOptions)
+    generateJSSpec AxiosCustom  (AX.generateAxiosJSWith (AX.defAxiosOptions { withCredentials = True }) customOptions)
     
     angularSpec    Angular
-    angularSpec    AngularCustom
+    --angularSpec    AngularCustom
 
 angularSpec :: TestNames -> Spec    
 angularSpec test = describe specLabel $ do
@@ -98,7 +98,6 @@ angularSpec test = describe specLabel $ do
         jsText `shouldNotContain` "getsomething($http, "
     where
         specLabel = "generateJS(" ++ (show test) ++ ")"
-        --output = putStrLn
         output _ = return ()
         testName = "MyService"
         ngOpts = NG.defAngularOptions { NG.serviceName = testName }