module renaming: S.API.QQ -> S.Utils.ApiQuasiQuoting

servant.cabal

@@ -22,7 +22,6 @@ library
     Servant.API.Get
     Servant.API.Post
     Servant.API.Put
-    Servant.API.QQ
     Servant.API.QueryParam
     Servant.API.Raw
     Servant.API.ReqBody
@@ -30,6 +29,7 @@ library
     Servant.Client
     Servant.Docs
     Servant.Server
+    Servant.Utils.ApiQuasiQuoting
     Servant.Utils.BaseUrl
     Servant.Utils.Req
     Servant.Utils.Text

src/Servant/API.hs

@@ -26,7 +26,7 @@ module Servant.API (
 
   -- * Utilities
   -- | QuasiQuotes for endpoints
-  module Servant.API.QQ,
+  module Servant.Utils.ApiQuasiQuoting,
   -- | Type-safe internal URLs
   module Servant.API.Elem,
   ) where
@@ -38,7 +38,7 @@ import Servant.API.Get
 import Servant.API.Post
 import Servant.API.Put
 import Servant.API.QueryParam
-import Servant.API.QQ (sitemap)
+import Servant.Utils.ApiQuasiQuoting (sitemap)
 import Servant.API.ReqBody
 import Servant.API.Sub
 import Servant.API.Alternative

src/Servant/Utils/ApiQuasiQuoting.hs

@@ -4,7 +4,7 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TemplateHaskell #-}
-module Servant.API.QQ where
+module Servant.Utils.ApiQuasiQuoting where
 
 import Control.Applicative
 import Data.List.Split (splitOn)

test/Servant/API/ElemSpec.hs

@@ -7,7 +7,7 @@ import Test.Hspec
 
 import Servant.API
 import Servant.API.Elem (IsElem, IsLink)
-import Servant.API.QQSpec ( (~>) )
+import Servant.Utils.ApiQuasiQuotingSpec ( (~>) )
 
 type TestApi =
        "hello" :> Capture "name" String :> QueryParam "capital" Bool :> Get Bool

test/Servant/Utils/ApiQuasiQuotingSpec.hs

@@ -7,7 +7,7 @@
 {-# LANGUAGE TypeFamilies  #-}
 {-# LANGUAGE TypeOperators  #-}
 {-# LANGUAGE UndecidableInstances  #-}
-module Servant.API.QQSpec where
+module Servant.Utils.ApiQuasiQuotingSpec where
 
 import Test.Hspec