eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Explicit imports in /test.

Browse Source
This commit is contained in:
Matthias Fischmann 2015-01-06 17:34:03 +01:00
parent 663fbaaabb
commit ca817f0c9d
2 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
test/Servant/ServerSpec.hs
View File

@ -8,28 +8,28 @@
module Servant.ServerSpec where module Servant.ServerSpec where
import Control.Monad.Trans.Either import Control.Monad.Trans.Either (EitherT, left)
import Data.Aeson import Data.Aeson (ToJSON, FromJSON, encode, decode')
import Data.Char import Data.Char (toUpper)
import Data.Proxy import Data.Proxy (Proxy(Proxy))
import Data.String import Data.String (fromString)
import Data.String.Conversions import Data.String.Conversions (cs)
import GHC.Generics import GHC.Generics (Generic)
import Network.HTTP.Types import Network.HTTP.Types (parseQuery, ok200)
import Network.Wai import Network.Wai (Application, Request, responseLBS, pathInfo, queryString, rawQueryString)
import Network.Wai.Test import Network.Wai.Test (runSession, request, defaultRequest, simpleBody)
import Test.Hspec import Test.Hspec (Spec, describe, it, shouldBe)
import Test.Hspec.Wai import Test.Hspec.Wai (liftIO, with, get, post, shouldRespondWith, matchStatus)
import Servant.API.Capture import Servant.API.Capture (Capture)
import Servant.API.Get import Servant.API.Get (Get)
import Servant.API.ReqBody import Servant.API.ReqBody (ReqBody)
import Servant.API.Post import Servant.API.Post (Post)
import Servant.API.QueryParam import Servant.API.QueryParam (QueryParam, QueryParams, QueryFlag)
import Servant.API.Raw import Servant.API.Raw (Raw)
import Servant.API.Sub import Servant.API.Sub ((:>))
import Servant.API.Alternative import Servant.API.Alternative ((:<|>)((:<|>)))
import Servant.Server import Servant.Server (Server, serve)
-- * test data types -- * test data types

30
test/Servant/Utils/StaticFilesSpec.hs
View File

@ -5,22 +5,22 @@
{-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS_GHC -fno-warn-orphans #-}
module Servant.Utils.StaticFilesSpec where module Servant.Utils.StaticFilesSpec where
import Control.Exception import Control.Exception (bracket)
import Data.Proxy import Data.Proxy (Proxy(Proxy))
import Network.Wai import Network.Wai (Application)
import System.Directory import System.Directory (getCurrentDirectory, setCurrentDirectory, createDirectory)
import System.IO.Temp import System.IO.Temp (withSystemTempDirectory)
import Test.Hspec hiding (pending) import Test.Hspec (Spec, describe, it, around_)
import Test.Hspec.Wai import Test.Hspec.Wai (with, get, shouldRespondWith)
import Servant.API.Alternative import Servant.API.Alternative ((:<|>)((:<|>)))
import Servant.API.Capture import Servant.API.Capture (Capture)
import Servant.API.Get import Servant.API.Get (Get)
import Servant.API.Raw import Servant.API.Raw (Raw)
import Servant.API.Sub import Servant.API.Sub ((:>))
import Servant.Server import Servant.Server (Server, serve)
import Servant.ServerSpec import Servant.ServerSpec (Person(Person))
import Servant.Utils.StaticFiles import Servant.Utils.StaticFiles (serveDirectory)
type Api = type Api =
"dummy_api" :> Capture "person_name" String :> Get Person "dummy_api" :> Capture "person_name" String :> Get Person