
shouldNotDecode :: forall a . (Eq a, Show a, Yaml.FromJSON a) => ByteString
                -> Expectation
shouldNotDecode bStr = Yaml.decode bStr `shouldBe` (Nothing :: Maybe a)

shouldGenerate :: forall a . (Eq a, Show a, Yaml.ToJSON a) => a -> ByteString
               -> Expectation