af00035 · typeable/servant

servant.cabal+1−1

compare with master

unifiedsplit

@@ -22,7 +22,6 @@ library

22 Servant.API.Get

23 Servant.API.Post

24 Servant.API.Put

25− Servant.API.QQ

26 Servant.API.QueryParam

25 Servant.API.QueryParam

27 Servant.API.Raw

26 Servant.API.Raw

28 Servant.API.ReqBody

27 Servant.API.ReqBody

@@ -30,6 +29,7 @@ library

30 Servant.Client

29 Servant.Client

31 Servant.Docs

30 Servant.Docs

32 Servant.Server

31 Servant.Server

32+ Servant.Utils.ApiQuasiQuoting

33 Servant.Utils.BaseUrl

34 Servant.Utils.Req

35 Servant.Utils.Text

src/Servant/API.hs+2−2

@@ -26,7 +26,7 @@ module Servant.API (

26

27 -- * Utilities

28 -- | QuasiQuotes for endpoints

29− module Servant.API.QQ,

29+ module Servant.Utils.ApiQuasiQuoting,

30 -- | Type-safe internal URLs

31 module Servant.API.Elem,

32 ) where

@@ -38,7 +38,7 @@ import Servant.API.Get

38import Servant.API.Post

39import Servant.API.Put

40import Servant.API.QueryParam

41−import Servant.API.QQ (sitemap)

41+import Servant.Utils.ApiQuasiQuoting (sitemap)

42import Servant.API.ReqBody

43import Servant.API.Sub

44import Servant.API.Alternative

src/Servant/API/QQ.hs → src/Servant/Utils/ApiQuasiQuoting.hsrenamed+1−1

@@ -4,7 +4,7 @@

4{-# LANGUAGE FlexibleInstances #-}

5{-# LANGUAGE ScopedTypeVariables #-}

6{-# LANGUAGE TemplateHaskell #-}

7−module Servant.API.QQ where

7+module Servant.Utils.ApiQuasiQuoting where

8

9import Control.Applicative

10import Data.List.Split (splitOn)

test/Servant/API/ElemSpec.hs+1−1

@@ -7,7 +7,7 @@ import Test.Hspec

7

8import Servant.API

9import Servant.API.Elem (IsElem, IsLink)

10−import Servant.API.QQSpec ( (~>) )

10+import Servant.Utils.ApiQuasiQuotingSpec ( (~>) )

11

12type TestApi =

13 "hello" :> Capture "name" String :> QueryParam "capital" Bool :> Get Bool

test/Servant/API/QQSpec.hs → test/Servant/Utils/ApiQuasiQuotingSpec.hsrenamed+1−1

@@ -7,7 +7,7 @@

7{-# LANGUAGE TypeFamilies #-}

8{-# LANGUAGE TypeOperators #-}

9{-# LANGUAGE UndecidableInstances #-}

10−module Servant.API.QQSpec where

10+module Servant.Utils.ApiQuasiQuotingSpec where

11

12import Test.Hspec

13