4809e5e · haskell-servant/servant-elm

git.iko.soy/haskell-servant/servant-elm

Fix tests

commit4809e5e9d3cc2d185a39232a230505c98c582abb authorKon Rybnikov <k-bx@k-bx.com> dateFri 23 Apr 2021, 08:38 (5 years ago) parent95c49ab

2 files changed+9−7

unifiedsplit

stack.yaml+3−3

@@ -1,8 +1,8 @@

1−resolver: lts-15.8

1+resolver: lts-17.9

22packages:

33- '.'

44extra-deps:

5−# - elm-bridge-0.5.2

6−- ../elm-bridge

5+- elm-bridge-0.6.1

6+# - ../elm-bridge

77flags: {}

88extra-package-dbs: []

test/Common.hs+6−4

@@ -5,9 +5,9 @@ module Common where

66import Data.Proxy (Proxy (Proxy))

77import Data.Text (Text)

8−import Servant.API ((:<|>), (:>), Capture, Get, GetNoContent, Header,

8+import Servant.API ((:<|>), (:>), Capture, Get, Header,

99 Header', Headers, JSON, Post,

10− PostNoContent, Put, QueryFlag, QueryParam,

10+ Put, QueryFlag, QueryParam,

1111 QueryParam', QueryParams, ReqBody, Required)

1212import Servant.Elm (deriveBoth, defaultOptions)

1313

@@ -38,9 +38,11 @@ type TestApi =

3838 :> Get '[JSON] [Book]

3939 :<|> "books"

4040 :> ReqBody '[JSON] Book

41− :> PostNoContent '[JSON] ()

41+ -- :> PostNoContent '[JSON] ()

42+ :> Post '[JSON] ()

4243 :<|> "nothing"

43− :> GetNoContent '[JSON] ()

44+ :> Get '[JSON] ()

45+ -- :> GetNoContent '[JSON] ()

4446 :<|> "nothing"

4547 :> Put '[JSON] () -- old way to specify no content

4648 :<|> "with-a-header"