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

Remove parentheses in ContextSpec

Browse Source
This commit is contained in:
Oleg Grenrus 2017-06-03 21:44:40 +03:00
parent b8510edb7d
commit 705285209a
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

@ -36,7 +36,7 @@ spec = do
show (Just cxt) `shouldBe` "Just ('a' :. True :. EmptyContext)"
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"
describe "descendIntoNamedContext" $ do