Move URL parameter to front of functions

Author: garyb

README.md

@@ -34,10 +34,18 @@ type AffjaxResponse a = { response :: a, headers :: [ResponseHeader], status ::
 
 The type of records that will be received as an Affjax response.
 
+#### `URL`
+
+``` purescript
+type URL = String
+```
+
+Type alias for URL strings to aid readability of types.
+
 #### `url`
 
 ``` purescript
-url :: Option AffjaxOptions String
+url :: Option AffjaxOptions URL
 ```
 
 Sets the URL for a request.
@@ -101,49 +109,49 @@ Runs a request directly in Eff.
 #### `get`
 
 ``` purescript
-get :: forall e a. Responsable a -> String -> Affjax e a
+get :: forall e a. URL -> Responsable a -> Affjax e a
 ```
 
 
 #### `post`
 
 ``` purescript
-post :: forall e a. Responsable a -> String -> RequestContent -> Affjax e a
+post :: forall e a. URL -> Responsable a -> RequestContent -> Affjax e a
 ```
 
 
 #### `post_`
 
 ``` purescript
-post_ :: forall e. String -> RequestContent -> Affjax e Unit
+post_ :: forall e. URL -> RequestContent -> Affjax e Unit
 ```
 
 
 #### `put`
 
 ``` purescript
-put :: forall e a. Responsable a -> String -> RequestContent -> Affjax e a
+put :: forall e a. URL -> Responsable a -> RequestContent -> Affjax e a
 ```
 
 
 #### `put_`
 
 ``` purescript
-put_ :: forall e. String -> RequestContent -> Affjax e Unit
+put_ :: forall e. URL -> RequestContent -> Affjax e Unit
 ```
 
 
 #### `delete`
 
 ``` purescript
-delete :: forall e a. Responsable a -> String -> Affjax e a
+delete :: forall e a. URL -> Responsable a -> Affjax e a
 ```
 
 
 #### `delete_`
 
 ``` purescript
-delete_ :: forall e. String -> Affjax e Unit
+delete_ :: forall e. URL -> Affjax e Unit
 ```
 
 

src/Network/HTTP/Affjax.purs

@@ -3,6 +3,7 @@ module Network.HTTP.Affjax
   , Affjax()
   , AffjaxOptions()
   , AffjaxResponse()
+  , URL()
   , url, method, content, headers, username, password
   , affjax
   , affjax'
@@ -43,8 +44,11 @@ type AffjaxResponse a =
   , response :: a
   }
 
+-- | Type alias for URL strings to aid readability of types.
+type URL = String
+
 -- | Sets the URL for a request.
-url :: Option AffjaxOptions String
+url :: Option AffjaxOptions URL
 url = opt "url"
 
 -- | Sets the HTTP method for a request.
@@ -92,32 +96,32 @@ affjax' (Responsable read ty) opts eb cb =
     Left err -> eb $ error (show err)
     Right res' -> cb res'
 
-get :: forall e a. Responsable a -> String -> Affjax e a
-get r addr = affjax r $ method := GET
-                     <> url := addr
+get :: forall e a. URL -> Responsable a -> Affjax e a
+get u r = affjax r $ method := GET
+                  <> url := u
 
-post :: forall e a. Responsable a -> String -> RequestContent -> Affjax e a
-post r u c = affjax r $ method := POST
+post :: forall e a. URL -> Responsable a -> RequestContent -> Affjax e a
+post u r c = affjax r $ method := POST
                      <> url := u
                      <> content := c
 
-post_ :: forall e. String -> RequestContent -> Affjax e Unit
-post_ = post rUnit
+post_ :: forall e. URL -> RequestContent -> Affjax e Unit
+post_ = flip post rUnit
 
-put :: forall e a. Responsable a -> String -> RequestContent -> Affjax e a
-put r u c = affjax r $ method := PUT
+put :: forall e a. URL -> Responsable a -> RequestContent -> Affjax e a
+put u r c = affjax r $ method := PUT
                     <> url := u
                     <> content := c
 
-put_ :: forall e. String -> RequestContent -> Affjax e Unit
-put_ = put rUnit
+put_ :: forall e. URL -> RequestContent -> Affjax e Unit
+put_ = flip put rUnit
 
-delete :: forall e a. Responsable a -> String -> Affjax e a
-delete r u = affjax r $ method := DELETE
+delete :: forall e a. URL -> Responsable a -> Affjax e a
+delete u r = affjax r $ method := DELETE
                      <> url := u
 
-delete_ :: forall e. String -> Affjax e Unit
-delete_ = delete rUnit
+delete_ :: forall e. URL -> Affjax e Unit
+delete_ = flip delete rUnit
 
 foreign import unsafeAjax
   """

test/Main.purs

@@ -42,7 +42,7 @@ main = do
     liftEff $ either traceAny traceAny res
 
   launchAff $ do
-    res <- attempt $ get rInt8Array "/arrayview"
+    res <- attempt $ get "/arrayview" rInt8Array
     liftEff $ either traceAny traceAny res
 
 go :: forall e. Options AffjaxOptions -> Eff (ajax :: Ajax, trace :: Trace | e) Unit