Fix ordering of CPP directive for aeson test
If the version of aeson used is below 0.9 the current ordering results in an empty do block.
This commit is contained in:
parent
7399f30cc4
commit
8eb592bc15
1 changed files with 2 additions and 2 deletions
|
@ -160,10 +160,10 @@ spec = describe "Servant.API.ContentTypes" $ do
|
|||
(encode val)
|
||||
`shouldBe` Just (Right val)
|
||||
|
||||
#if MIN_VERSION_aeson(0,9,0)
|
||||
-- aeson >= 0.9 decodes top-level strings
|
||||
describe "eitherDecodeLenient" $ do
|
||||
|
||||
-- aeson >= 0.9 decodes top-level strings
|
||||
#if MIN_VERSION_aeson(0,9,0)
|
||||
it "parses top-level strings" $ do
|
||||
let toMaybe = either (const Nothing) Just
|
||||
-- The Left messages differ, so convert to Maybe
|
||||
|
|
Loading…
Reference in a new issue