Uses json test

Author: Mike Solomon

README.md

@@ -1,3 +1,3 @@
 # purescript-affjax.py
 
-A port of affjax to purescript-python
+An experimental port of affjax to purescript-python.

python-ffi/Affjax.py

@@ -44,7 +44,10 @@
 
 # todo - is there an analog for withCredentials here?
 def _ajax(mkHeader, options):
+    print("called ajax")
+
     def _1(errback, callback):
+        print("STARTING")
         if options["responseType"] in ["arraybuffer", "blob", "document"]:
             errback(
                 Exception(
@@ -75,6 +78,7 @@ def _toThreading():
                     headers=headers,
                 )
                 r1 = conn.getresponse()
+                print("LOOK HERE")
                 callback(
                     {
                         "status": r1.status,

src/Main.purs

@@ -7,12 +7,15 @@ import Data.Argonaut.Core as J
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(..))
 import Effect.Aff (launchAff)
+import Effect.Class (liftEffect)
 import Effect.Class.Console (log)
 
 main =
   void $ launchAff
     $ do
-        result <- AX.request (AX.defaultRequest { url = "/api", method = Left GET, responseFormat = ResponseFormat.json })
+        let
+          r = AX.defaultRequest { url = "http://ip.jsontest.com/", method = Left GET, responseFormat = ResponseFormat.json }
+        result <- AX.request r
         case result of
-          Left err -> log $ "GET /api response failed to decode: " <> AX.printError err
+          Left err -> log $ "GET  response failed to decode: " <> AX.printError err
           Right response -> log $ "GET /api response: " <> J.stringify response.body