Explicit imports in /test.

This commit is contained in:
Matthias Fischmann 2015-01-06 17:57:50 +01:00
parent 40b13a9c86
commit 92a8a78abe
2 changed files with 14 additions and 4 deletions

View file

@ -9,9 +9,18 @@
{-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE UndecidableInstances #-}
module Servant.QQSpec where module Servant.QQSpec where
import Test.Hspec import Test.Hspec ( Expectation, Spec, shouldBe, it, describe )
import Servant.API import Servant.API
( (:<|>),
ReqBody,
QueryParam,
Put,
Get,
Post,
Capture,
(:>),
sitemap )
-------------------------------------------------------------------------- --------------------------------------------------------------------------
-- Types for testing -- Types for testing

View file

@ -3,11 +3,13 @@
{-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeOperators #-}
module Servant.Utils.LinksSpec where module Servant.Utils.LinksSpec where
import Test.Hspec import Test.Hspec ( Spec, it, describe )
import Servant.API import Servant.API
( type (:<|>), ReqBody, QueryParam, Get, Post, Capture, type (:>) )
import Servant.QQSpec ( (~>) ) import Servant.QQSpec ( (~>) )
import Servant.Utils.Links (IsElem, IsLink) import Servant.Utils.Links ( IsElem, IsLink )
type TestApi = type TestApi =
"hello" :> Capture "name" String :> QueryParam "capital" Bool :> Get Bool "hello" :> Capture "name" String :> QueryParam "capital" Bool :> Get Bool
@ -49,4 +51,3 @@ isLink = describe "IsLink" $ do
it "is False of anything with captures" $ do it "is False of anything with captures" $ do
reflected (Proxy::Proxy (IsLink NotALink)) ~> False reflected (Proxy::Proxy (IsLink NotALink)) ~> False
reflected (Proxy::Proxy (IsLink NotALink2)) ~> False reflected (Proxy::Proxy (IsLink NotALink2)) ~> False