moved S.Client.BaseUrl to S.Utils.BaseUrl

example/greet.hs

@@ -20,9 +20,9 @@ import Network.Wai.Handler.Warp
 
 import Servant.API
 import Servant.Client
-import Servant.Client.BaseUrl
 import Servant.Docs
 import Servant.Server
+import Servant.Utils.BaseUrl
 
 -- * Example
 

servant.cabal

@@ -14,23 +14,23 @@ cabal-version:       >=1.10
 library
   exposed-modules:
     Servant
-    Servant.Client
-    Servant.Client.BaseUrl
-    Servant.Docs
-    Servant.Server
     Servant.API
+    Servant.API.Alternative
     Servant.API.Capture
     Servant.API.Delete
     Servant.API.Elem
     Servant.API.Get
     Servant.API.Post
     Servant.API.Put
-    Servant.API.QueryParam
-    Servant.API.ReqBody
     Servant.API.QQ
+    Servant.API.QueryParam
     Servant.API.Raw
+    Servant.API.ReqBody
     Servant.API.Sub
-    Servant.API.Alternative
+    Servant.Client
+    Servant.Docs
+    Servant.Server
+    Servant.Utils.BaseUrl
     Servant.Utils.Client
     Servant.Utils.Text
   build-depends:

src/Servant.hs

@@ -7,7 +7,7 @@ module Servant (
   module Servant.Server,
   -- | For accessing servant APIs as API clients.
   module Servant.Client,
-  module Servant.Client.BaseUrl,
+  module Servant.Utils.BaseUrl,
   -- | For generating documentation for servant APIs.
   module Servant.Docs,
   -- | Helper module
@@ -16,7 +16,7 @@ module Servant (
 
 import Servant.API
 import Servant.Client
-import Servant.Client.BaseUrl
 import Servant.Docs
 import Servant.Server
+import Servant.Utils.BaseUrl
 import Servant.Utils.Text

src/Servant/API/Delete.hs

@@ -11,9 +11,9 @@ import Data.Typeable
 import Network.HTTP.Types
 import Network.Wai
 import Servant.Client
-import Servant.Client.BaseUrl
 import Servant.Docs
 import Servant.Server
+import Servant.Utils.BaseUrl
 import Servant.Utils.Client
 
 -- | Endpoint for DELETE requests.

src/Servant/API/Get.hs

@@ -12,9 +12,9 @@ import Data.Typeable
 import Network.HTTP.Types
 import Network.Wai
 import Servant.Client
-import Servant.Client.BaseUrl
 import Servant.Docs
 import Servant.Server
+import Servant.Utils.BaseUrl
 import Servant.Utils.Client
 
 -- | Endpoint for simple GET requests. The server doesn't receive any arguments

src/Servant/API/Post.hs

@@ -12,9 +12,9 @@ import Data.Typeable
 import Network.HTTP.Types
 import Network.Wai
 import Servant.Client
-import Servant.Client.BaseUrl
 import Servant.Docs
 import Servant.Server
+import Servant.Utils.BaseUrl
 import Servant.Utils.Client
 
 -- | Endpoint for POST requests. The type variable represents the type of the

src/Servant/API/Put.hs

@@ -12,9 +12,9 @@ import Data.Typeable
 import Network.HTTP.Types
 import Network.Wai
 import Servant.Client
-import Servant.Client.BaseUrl
 import Servant.Docs
 import Servant.Server
+import Servant.Utils.BaseUrl
 import Servant.Utils.Client
 
 -- | Endpoint for PUT requests.

src/Servant/Client.hs

@@ -12,7 +12,7 @@ import Network.HTTP.Types
 import Network.URI
 import System.IO.Unsafe
 
-import Servant.Client.BaseUrl
+import Servant.Utils.BaseUrl
 
 -- * Accessing APIs as a Client
 

src/Servant/Utils/BaseUrl.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE ViewPatterns #-}
-module Servant.Client.BaseUrl where
+module Servant.Utils.BaseUrl where
 
 import Data.List
 import GHC.Generics

src/Servant/Utils/Client.hs

@@ -14,7 +14,7 @@ import Data.ByteString.Lazy
 import Data.String.Conversions
 import Network.HTTP.Types
 import Servant.Client
-import Servant.Client.BaseUrl
+import Servant.Utils.BaseUrl
 
 import qualified Network.HTTP.Client as Client
 

test/Servant/Client/BaseUrlSpec.hs

@@ -6,7 +6,7 @@ import Control.DeepSeq
 import Test.Hspec
 import Test.QuickCheck
 
-import Servant.Client.BaseUrl
+import Servant.Utils.BaseUrl
 
 spec :: Spec
 spec = do

test/Servant/ClientSpec.hs

@@ -21,8 +21,8 @@ import Test.QuickCheck
 
 import Servant.API
 import Servant.Client
-import Servant.Client.BaseUrl
 import Servant.Server
+import Servant.Utils.BaseUrl
 
 import Servant.ServerSpec