Use CPP
This commit is contained in:
parent
5a1c4ca7c3
commit
962acbb845
1
.gitignore
vendored
1
.gitignore
vendored
@ -4,3 +4,4 @@ samples/
|
|||||||
test-servers/
|
test-servers/
|
||||||
/doc/
|
/doc/
|
||||||
.stack-work/
|
.stack-work/
|
||||||
|
dist-newstyle/
|
||||||
|
|||||||
@ -106,7 +106,7 @@ test-suite spec
|
|||||||
, servant-client
|
, servant-client
|
||||||
, servant
|
, servant
|
||||||
, servant-blaze
|
, servant-blaze
|
||||||
, transformers
|
-- , transformers
|
||||||
, QuickCheck
|
, QuickCheck
|
||||||
, quickcheck-io
|
, quickcheck-io
|
||||||
default-extensions: TypeOperators
|
default-extensions: TypeOperators
|
||||||
|
|||||||
@ -15,6 +15,10 @@ import Servant.API.ContentTypes (AllMimeRender (..))
|
|||||||
import Servant.Client (BaseUrl (..), Scheme (..))
|
import Servant.Client (BaseUrl (..), Scheme (..))
|
||||||
import Test.QuickCheck (Arbitrary (..), Gen, elements, frequency)
|
import Test.QuickCheck (Arbitrary (..), Gen, elements, frequency)
|
||||||
|
|
||||||
|
#if __GLASGOW_HASKELL__ <= 800
|
||||||
|
import Data.Monoid ((<>))
|
||||||
|
#endif
|
||||||
|
|
||||||
import qualified Data.ByteString as BS
|
import qualified Data.ByteString as BS
|
||||||
import qualified Data.ByteString.Internal as BS (c2w)
|
import qualified Data.ByteString.Internal as BS (c2w)
|
||||||
|
|
||||||
|
|||||||
@ -19,6 +19,10 @@ import Test.QuickCheck.Monadic (assert, forAllM, monadicIO, monitor,
|
|||||||
run)
|
run)
|
||||||
import Test.QuickCheck.Property (counterexample)
|
import Test.QuickCheck.Property (counterexample)
|
||||||
|
|
||||||
|
#if __GLASGOW_HASKELL__ <= 800
|
||||||
|
import Data.Monoid ((<>))
|
||||||
|
#endif
|
||||||
|
|
||||||
import Servant.QuickCheck.Internal.Equality
|
import Servant.QuickCheck.Internal.Equality
|
||||||
import Servant.QuickCheck.Internal.ErrorTypes
|
import Servant.QuickCheck.Internal.ErrorTypes
|
||||||
import Servant.QuickCheck.Internal.HasGenRequest
|
import Servant.QuickCheck.Internal.HasGenRequest
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user