git.iko.soy/servant
on master help sign in
Explicit imports in /test.
92a8a78Matthias Fischmann
test/Servant/QQSpec.hs+10−1
compare with master
unifiedsplit
@@ -9,9 +9,18 @@
9{-# LANGUAGE UndecidableInstances #-}
9{-# LANGUAGE UndecidableInstances #-}
10module Servant.QQSpec where
10module Servant.QQSpec where
11
11
12−import Test.Hspec
12+import Test.Hspec ( Expectation, Spec, shouldBe, it, describe )
13
13
14import Servant.API
14import Servant.API
15+ ( (:<|>),
16+ ReqBody,
17+ QueryParam,
18+ Put,
19+ Get,
20+ Post,
21+ Capture,
22+ (:>),
23+ sitemap )
15
24
16--------------------------------------------------------------------------
25--------------------------------------------------------------------------
17-- Types for testing
26-- Types for testing
test/Servant/Utils/LinksSpec.hs+4−3
@@ -3,11 +3,13 @@
3{-# LANGUAGE TypeOperators #-}
3{-# LANGUAGE TypeOperators #-}
4module Servant.Utils.LinksSpec where
4module Servant.Utils.LinksSpec where
5
5
6−import Test.Hspec
6+import Test.Hspec ( Spec, it, describe )
7
7
8import Servant.API
8import Servant.API
9+ ( type (:<|>), ReqBody, QueryParam, Get, Post, Capture, type (:>) )
9import Servant.QQSpec ( (~>) )
10import Servant.QQSpec ( (~>) )
10−import Servant.Utils.Links (IsElem, IsLink)
11+import Servant.Utils.Links ( IsElem, IsLink )
12+
11
13
12type TestApi =
14type TestApi =
13 "hello" :> Capture "name" String :> QueryParam "capital" Bool :> Get Bool
15 "hello" :> Capture "name" String :> QueryParam "capital" Bool :> Get Bool
@@ -49,4 +51,3 @@ isLink = describe "IsLink" $ do
49 it "is False of anything with captures" $ do
51 it "is False of anything with captures" $ do
50 reflected (Proxy::Proxy (IsLink NotALink)) ~> False
52 reflected (Proxy::Proxy (IsLink NotALink)) ~> False
51 reflected (Proxy::Proxy (IsLink NotALink2)) ~> False
53 reflected (Proxy::Proxy (IsLink NotALink2)) ~> False
52−