git.iko.soy/typeable/servant
on master help sign in
Fix ordering of CPP directive for aeson test
8eb592bOswyn Brent
servant/test/Servant/API/ContentTypesSpec.hs+2−2
compare with master
unifiedsplit
@@ -160,10 +160,10 @@ spec = describe "Servant.API.ContentTypes" $ do
160 (encode val)
160 (encode val)
161 `shouldBe` Just (Right val)
161 `shouldBe` Just (Right val)
162
162
163+#if MIN_VERSION_aeson(0,9,0)
164+ -- aeson >= 0.9 decodes top-level strings
163 describe "eitherDecodeLenient" $ do
165 describe "eitherDecodeLenient" $ do
164
166
165− -- aeson >= 0.9 decodes top-level strings
166−#if MIN_VERSION_aeson(0,9,0)
167 it "parses top-level strings" $ do
167 it "parses top-level strings" $ do
168 let toMaybe = either (const Nothing) Just
168 let toMaybe = either (const Nothing) Just
169 -- The Left messages differ, so convert to Maybe
169 -- The Left messages differ, so convert to Maybe