git.iko.soy/typeable/servant
on master help sign in
Remove parentheses in ContextSpec
7052852Oleg Grenrus
servant-server/test/Servant/Server/Internal/ContextSpec.hs+1−1
compare with master
unifiedsplit
@@ -36,7 +36,7 @@ spec = do
36 show (Just cxt) `shouldBe` "Just ('a' :. True :. EmptyContext)"
36 show (Just cxt) `shouldBe` "Just ('a' :. True :. EmptyContext)"
37
37
38 it "works with operators" $ do
38 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
40 show cxt `shouldBe` "1 :. 'a' :. EmptyContext :<|> 'b' :. True :. EmptyContext"
40 show cxt `shouldBe` "1 :. 'a' :. EmptyContext :<|> 'b' :. True :. EmptyContext"
41
41
42 describe "descendIntoNamedContext" $ do
42 describe "descendIntoNamedContext" $ do