Move modules to a top level Affjax namespace

Author: garyb

README.md

@@ -28,14 +28,14 @@ module Main where
 
 import Prelude
 
+import Affjax as AX
+import Affjax.ResponseFormat as ResponseFormat
 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.Console (log)
-import Network.HTTP.Affjax as AX
-import Network.HTTP.Affjax.ResponseFormat as ResponseFormat
 
 main = launchAff $ do
   res <- AX.request ResponseFormat.json (AX.defaultRequest { url = "/api", method = Left GET })
@@ -47,7 +47,7 @@ main = launchAff $ do
 Or use of a number of helpers for common cases:
 
 ```purescript
-import Network.HTTP.Affjax.RequestBody as RequestBody
+import Affjax.RequestBody as RequestBody
 
 main = launchAff $ do
   res1 <- AX.get ResponseFormat.json "/api"

src/Network/HTTP/Affjax.js renamed to src/Affjax.js

@@ -1,4 +1,4 @@
-module Network.HTTP.Affjax
+module Affjax
   ( RequestOptions, defaultRequest
   , Response
   , URL
@@ -16,6 +16,11 @@ module Network.HTTP.Affjax
 
 import Prelude
 
+import Affjax.RequestBody as RequestBody
+import Affjax.RequestHeader (RequestHeader(..), requestHeaderName, requestHeaderValue)
+import Affjax.ResponseFormat as ResponseFormat
+import Affjax.ResponseHeader (ResponseHeader, responseHeader)
+import Affjax.StatusCode (StatusCode(..))
 import Control.Monad.Except (runExcept, throwError)
 import Control.Parallel (parOneOf)
 import Data.Argonaut.Core (Json)
@@ -41,11 +46,6 @@ import Effect.Exception (Error, error)
 import Effect.Ref as Ref
 import Foreign (F, Foreign, ForeignError(..), fail, renderForeignError, unsafeReadTagged, unsafeToForeign)
 import Math as Math
-import Network.HTTP.Affjax.RequestBody as RequestBody
-import Network.HTTP.Affjax.ResponseFormat as ResponseFormat
-import Network.HTTP.RequestHeader (RequestHeader(..), requestHeaderName, requestHeaderValue)
-import Network.HTTP.ResponseHeader (ResponseHeader, responseHeader)
-import Network.HTTP.StatusCode (StatusCode(..))
 
 -- | A record that contains all the information to perform an HTTP request.
 -- | Instead of constructing the record from scratch it is often easier to build

src/Network/HTTP/Affjax.purs renamed to src/Affjax.purs

@@ -1,4 +1,4 @@
-module Network.HTTP.Affjax.RequestBody where
+module Affjax.RequestBody where
 
 import Data.Argonaut.Core (Json)
 import Data.ArrayBuffer.Types as A

src/Network/HTTP/Affjax/RequestBody.purs renamed to src/Affjax/RequestBody.purs

@@ -1,4 +1,4 @@
-module Network.HTTP.RequestHeader where
+module Affjax.RequestHeader where
 
 import Prelude
 

src/Network/HTTP/RequestHeader.purs renamed to src/Affjax/RequestHeader.purs

@@ -1,4 +1,4 @@
-module Network.HTTP.Affjax.ResponseFormat where
+module Affjax.ResponseFormat where
 
 import Prelude
 

src/Network/HTTP/Affjax/ResponseFormat.purs renamed to src/Affjax/ResponseFormat.purs

@@ -1,4 +1,4 @@
-module Network.HTTP.ResponseHeader
+module Affjax.ResponseHeader
   ( ResponseHeader()
   , responseHeader
   , responseHeaderName

src/Network/HTTP/ResponseHeader.purs renamed to src/Affjax/ResponseHeader.purs

@@ -1,4 +1,4 @@
-module Network.HTTP.StatusCode where
+module Affjax.StatusCode where
 
 import Prelude
 

src/Network/HTTP/StatusCode.purs renamed to src/Affjax/StatusCode.purs

@@ -2,15 +2,15 @@ module Test.DocExamples where
 
 import Prelude
 
+import Affjax as AX
+import Affjax.RequestBody as RequestBody
+import Affjax.ResponseFormat as ResponseFormat
 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.Console (log)
-import Network.HTTP.Affjax as AX
-import Network.HTTP.Affjax.RequestBody as RequestBody
-import Network.HTTP.Affjax.ResponseFormat as ResponseFormat
 
 main = launchAff $ do
   res <- AX.request ResponseFormat.json (AX.defaultRequest { url = "/api", method = Left GET })

test/DocExamples.purs

@@ -2,6 +2,10 @@ module Test.Main where
 
 import Prelude
 
+import Affjax as AX
+import Affjax.RequestBody as RequestBody
+import Affjax.ResponseFormat as ResponseFormat
+import Affjax.StatusCode (StatusCode(..))
 import Control.Monad.Error.Class (throwError)
 import Data.Argonaut.Core as J
 import Data.Either (Either(..), either)
@@ -14,10 +18,6 @@ import Effect.Class.Console as A
 import Effect.Console (log, logShow)
 import Effect.Exception (error, throwException)
 import Foreign.Object as FO
-import Network.HTTP.Affjax as AX
-import Network.HTTP.Affjax.RequestBody as RequestBody
-import Network.HTTP.Affjax.ResponseFormat as ResponseFormat
-import Network.HTTP.StatusCode (StatusCode(..))
 
 foreign import logAny :: forall a. a -> Effect Unit