Update README.md

Author: robertdp

README.md

@@ -20,29 +20,29 @@ type User
 
 type ListUsers
   = GET "/users"
-    { query ::
-      { sortBy :: UserSort
-      , sortDir :: SortDir
+      { query ::
+        { sortBy :: UserSort
+        , sortDir :: SortDir
+        }
+      , response ::
+        { ok :: JSON (Array User)
+        }
       }
-    , response ::
-      { ok :: JSON (Array User)
-      }
-    }
 
 type CreateNewUser
   = POST "/users"
-    { body :: JSON { name :: String, email :: String }
-    , response ::
-      { ok :: JSON User
-      , badRequest :: JSON { errors :: Array { field :: String, message :: String } }
+      { body :: JSON { name :: String, email :: String }
+      , response ::
+        { ok :: JSON User
+        , badRequest :: JSON { errors :: Array { field :: String, message :: String } }
+        }
       }
-    }
 
 listUsers params =
-  Apiary.makeRequest (Route :: ListUsers) identity params unit
+  Apiary.makeRequest (Route :: ListUsers) identity params none
 
 createNewUser body =
-  Apiary.makeRequest (Route :: CreateNewUser) identity {} body
+  Apiary.makeRequest (Route :: CreateNewUser) identity none body
 ```
 
 This will give us inferred types equivalent to