Merge pull request #1397 from akhesaCaro/compiling_sqlite_simple_cookbook
Fixing Servant cookbooks part 1 (-testing + sqlite-simple)
This commit is contained in:
commit
53e943b5bb
3 changed files with 7 additions and 7 deletions
|
@ -26,7 +26,7 @@ packages:
|
||||||
doc/cookbook/custom-errors
|
doc/cookbook/custom-errors
|
||||||
doc/cookbook/basic-streaming
|
doc/cookbook/basic-streaming
|
||||||
doc/cookbook/db-postgres-pool
|
doc/cookbook/db-postgres-pool
|
||||||
-- doc/cookbook/db-sqlite-simple
|
doc/cookbook/db-sqlite-simple
|
||||||
doc/cookbook/file-upload
|
doc/cookbook/file-upload
|
||||||
doc/cookbook/generic
|
doc/cookbook/generic
|
||||||
-- doc/cookbook/hoist-server-with-context
|
-- doc/cookbook/hoist-server-with-context
|
||||||
|
@ -54,9 +54,6 @@ constraints:
|
||||||
constraints: base-compat ^>=0.11
|
constraints: base-compat ^>=0.11
|
||||||
constraints: semigroups ^>=0.19
|
constraints: semigroups ^>=0.19
|
||||||
|
|
||||||
-- MonadFail
|
|
||||||
-- https://github.com/nurpax/sqlite-simple/issues/74
|
|
||||||
constraints: sqlite-simple < 0
|
|
||||||
-- allow-newer: sqlite-simple-0.4.16.0:semigroups
|
-- allow-newer: sqlite-simple-0.4.16.0:semigroups
|
||||||
-- allow-newer: direct-sqlite-2.3.24:semigroups
|
-- allow-newer: direct-sqlite-2.3.24:semigroups
|
||||||
|
|
||||||
|
|
|
@ -23,7 +23,7 @@ executable cookbook-db-sqlite-simple
|
||||||
, http-types >= 0.12
|
, http-types >= 0.12
|
||||||
, markdown-unlit >= 0.4
|
, markdown-unlit >= 0.4
|
||||||
, http-client >= 0.5
|
, http-client >= 0.5
|
||||||
, sqlite-simple >= 0.4
|
, sqlite-simple >= 0.4.5.0
|
||||||
, transformers
|
, transformers
|
||||||
default-language: Haskell2010
|
default-language: Haskell2010
|
||||||
ghc-options: -Wall -pgmL markdown-unlit
|
ghc-options: -Wall -pgmL markdown-unlit
|
||||||
|
|
|
@ -126,8 +126,11 @@ spec = describe "Servant.Docs" $ do
|
||||||
it "mentions headers" $ do
|
it "mentions headers" $ do
|
||||||
md `shouldContain` "- This endpoint is sensitive to the value of the **X-Test** HTTP header."
|
md `shouldContain` "- This endpoint is sensitive to the value of the **X-Test** HTTP header."
|
||||||
|
|
||||||
it "contains response samples" $
|
it "contains response samples - dt1field1" $
|
||||||
md `shouldContain` "{\"dt1field1\":\"field 1\",\"dt1field2\":13}"
|
md `shouldContain` "\"dt1field1\":\"field 1\""
|
||||||
|
it "contains response samples - dt1field2" $
|
||||||
|
md `shouldContain` "\"dt1field2\":13"
|
||||||
|
|
||||||
it "contains request body samples" $
|
it "contains request body samples" $
|
||||||
md `shouldContain` "17"
|
md `shouldContain` "17"
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue