git.iko.soy/servant
on master help sign in
Explicit imports in /test.
ca817f0Matthias Fischmann
test/Servant/ServerSpec.hs+22−22
compare with master
unifiedsplit
@@ -8,28 +8,28 @@
8module Servant.ServerSpec where
8module Servant.ServerSpec where
9
9
10
10
11−import Control.Monad.Trans.Either
11+import Control.Monad.Trans.Either (EitherT, left)
12−import Data.Aeson
12+import Data.Aeson (ToJSON, FromJSON, encode, decode')
13−import Data.Char
13+import Data.Char (toUpper)
14−import Data.Proxy
14+import Data.Proxy (Proxy(Proxy))
15−import Data.String
15+import Data.String (fromString)
16−import Data.String.Conversions
16+import Data.String.Conversions (cs)
17−import GHC.Generics
17+import GHC.Generics (Generic)
18−import Network.HTTP.Types
18+import Network.HTTP.Types (parseQuery, ok200)
19−import Network.Wai
19+import Network.Wai (Application, Request, responseLBS, pathInfo, queryString, rawQueryString)
20−import Network.Wai.Test
20+import Network.Wai.Test (runSession, request, defaultRequest, simpleBody)
21−import Test.Hspec
21+import Test.Hspec (Spec, describe, it, shouldBe)
22−import Test.Hspec.Wai
22+import Test.Hspec.Wai (liftIO, with, get, post, shouldRespondWith, matchStatus)
23−
23+
24−import Servant.API.Capture
24+import Servant.API.Capture (Capture)
25−import Servant.API.Get
25+import Servant.API.Get (Get)
26−import Servant.API.ReqBody
26+import Servant.API.ReqBody (ReqBody)
27−import Servant.API.Post
27+import Servant.API.Post (Post)
28−import Servant.API.QueryParam
28+import Servant.API.QueryParam (QueryParam, QueryParams, QueryFlag)
29−import Servant.API.Raw
29+import Servant.API.Raw (Raw)
30−import Servant.API.Sub
30+import Servant.API.Sub ((:>))
31−import Servant.API.Alternative
31+import Servant.API.Alternative ((:<|>)((:<|>)))
32−import Servant.Server
32+import Servant.Server (Server, serve)
33
33
34
34
35-- * test data types
35-- * test data types
test/Servant/Utils/StaticFilesSpec.hs+15−15
@@ -5,22 +5,22 @@
5{-# OPTIONS_GHC -fno-warn-orphans #-}
5{-# OPTIONS_GHC -fno-warn-orphans #-}
6module Servant.Utils.StaticFilesSpec where
6module Servant.Utils.StaticFilesSpec where
7
7
8−import Control.Exception
8+import Control.Exception (bracket)
9−import Data.Proxy
9+import Data.Proxy (Proxy(Proxy))
10−import Network.Wai
10+import Network.Wai (Application)
11−import System.Directory
11+import System.Directory (getCurrentDirectory, setCurrentDirectory, createDirectory)
12−import System.IO.Temp
12+import System.IO.Temp (withSystemTempDirectory)
13−import Test.Hspec hiding (pending)
13+import Test.Hspec (Spec, describe, it, around_)
14−import Test.Hspec.Wai
14+import Test.Hspec.Wai (with, get, shouldRespondWith)
15
15
16−import Servant.API.Alternative
16+import Servant.API.Alternative ((:<|>)((:<|>)))
17−import Servant.API.Capture
17+import Servant.API.Capture (Capture)
18−import Servant.API.Get
18+import Servant.API.Get (Get)
19−import Servant.API.Raw
19+import Servant.API.Raw (Raw)
20−import Servant.API.Sub
20+import Servant.API.Sub ((:>))
21−import Servant.Server
21+import Servant.Server (Server, serve)
22−import Servant.ServerSpec
22+import Servant.ServerSpec (Person(Person))
23−import Servant.Utils.StaticFiles
23+import Servant.Utils.StaticFiles (serveDirectory)
24
24
25type Api =
25type Api =
26 "dummy_api" :> Capture "person_name" String :> Get Person
26 "dummy_api" :> Capture "person_name" String :> Get Person