Remove parentheses in ContextSpec
commit705285209a01976263cdad556ced3c0235e53854
authorOleg Grenrus <oleg.grenrus@iki.fi>
dateSat 3 Jun 2017, 21:44 (9 years ago)
parentb8510ed
servant-server/test/Servant/Server/Internal/ContextSpec.hs+1−1
@@ -36,7 +36,7 @@ spec = do
3636 show (Just cxt) `shouldBe` "Just ('a' :. True :. EmptyContext)"
3737
3838 it "works with operators" $ do
39− let cxt = ((1 :: Integer) :. 'a' :. EmptyContext) :<|> ('b' :. True :. EmptyContext)
39+ let cxt = (1 :: Integer) :. 'a' :. EmptyContext :<|> 'b' :. True :. EmptyContext
4040 show cxt `shouldBe` "1 :. 'a' :. EmptyContext :<|> 'b' :. True :. EmptyContext"
4141
4242 describe "descendIntoNamedContext" $ do