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

Merge pull request #140 from oswynb/fix-aeson-test

Browse source 
Fix ordering of CPP directive for aeson test
This commit is contained in:
Julian Arni 2015-06-23 16:51:52 +02:00
commit d27c7c0c6f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant/test/Servant/API/ContentTypesSpec.hs
View file

@ -160,10 +160,10 @@ spec = describe "Servant.API.ContentTypes" $ do
(encode val) (encode val)
`shouldBe` Just (Right val) `shouldBe` Just (Right val)
#if MIN_VERSION_aeson(0,9,0)
-- aeson >= 0.9 decodes top-level strings
describe "eitherDecodeLenient" $ do describe "eitherDecodeLenient" $ do
-- aeson >= 0.9 decodes top-level strings
#if MIN_VERSION_aeson(0,9,0)
it "parses top-level strings" $ do it "parses top-level strings" $ do
let toMaybe = either (const Nothing) Just let toMaybe = either (const Nothing) Just
-- The Left messages differ, so convert to Maybe -- The Left messages differ, so convert to Maybe