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

Fix tests for servant-server

Browse source
This commit is contained in:
Catherine Galkina 2017-06-02 18:47:28 +03:00
parent e413310d0a
commit 1c6927d3f5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-server/test/Servant/Server/Internal/ContextSpec.hs
View file

@ -37,7 +37,7 @@ spec = do
it "works with operators" $ do it "works with operators" $ do
let cxt = ((1 :: Integer) :. 'a' :. EmptyContext) :<|> ('b' :. True :. EmptyContext) let cxt = ((1 :: Integer) :. 'a' :. EmptyContext) :<|> ('b' :. True :. EmptyContext)
show cxt `shouldBe` "(1 :. 'a' :. EmptyContext) :<|> ('b' :. True :. EmptyContext)" show cxt `shouldBe` "1 :. 'a' :. EmptyContext :<|> 'b' :. True :. EmptyContext"
describe "descendIntoNamedContext" $ do describe "descendIntoNamedContext" $ do
let cxt :: Context [Char, NamedContext "sub" '[Char]] let cxt :: Context [Char, NamedContext "sub" '[Char]]