Fix tests for servant-server
commit1c6927d3f5bbce4dbf4ebccdf156edc1f6310867
authorCatherine Galkina <catherine@getshoptv.com>
dateFri 2 Jun 2017, 18:47 (9 years ago)
parente413310
servant-server/test/Servant/Server/Internal/ContextSpec.hs+1−1
@@ -37,7 +37,7 @@ spec = do
3737
3838 it "works with operators" $ do
3939 let cxt = ((1 :: Integer) :. 'a' :. EmptyContext) :<|> ('b' :. True :. EmptyContext)
40− show cxt `shouldBe` "(1 :. 'a' :. EmptyContext) :<|> ('b' :. True :. EmptyContext)"
40+ show cxt `shouldBe` "1 :. 'a' :. EmptyContext :<|> 'b' :. True :. EmptyContext"
4141
4242 describe "descendIntoNamedContext" $ do
4343 let cxt :: Context [Char, NamedContext "sub" '[Char]]