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