@@ -50,6 +50,8 @@ spec = do
50 describe "Info Object" $ do
50 describe "Info Object" $ do
51 it "encodes correctly" $ do
51 it "encodes correctly" $ do
52 toJSON infoExample `shouldBe` infoExampleJSON
52 toJSON infoExample `shouldBe` infoExampleJSON
53+ it "decodes correctly" $ do
54+ fromJSON infoExampleJSON `shouldBe` Success infoExample
54main :: IO ()
56main :: IO ()
55main = hspec spec
57main = hspec spec