From 244a459836efb8831296876757fbe22dec8b95bf Mon Sep 17 00:00:00 2001 From: William Cheng Date: Tue, 12 Jul 2022 00:15:58 +0800 Subject: [PATCH] update samples --- .../server/petstore/haskell-servant/lib/OpenAPIPetstore/Types.hs | 1 + .../server/petstore/haskell-yesod/src/OpenAPIPetstore/Types.hs | 1 + 2 files changed, 2 insertions(+) diff --git a/samples/server/petstore/haskell-servant/lib/OpenAPIPetstore/Types.hs b/samples/server/petstore/haskell-servant/lib/OpenAPIPetstore/Types.hs index 7c19368f7c23..9a4bfb851ec9 100644 --- a/samples/server/petstore/haskell-servant/lib/OpenAPIPetstore/Types.hs +++ b/samples/server/petstore/haskell-servant/lib/OpenAPIPetstore/Types.hs @@ -193,6 +193,7 @@ removeFieldLabelPrefix forParsing prefix = , ("<=", "'Less_Than_Or_Equal_To") , (">=", "'Greater_Than_Or_Equal_To") , ("!=", "'Not_Equal") + , ("<>", "'Not_Equal") , ("~=", "'Tilde_Equal") , ("\\", "'Back_Slash") , ("\"", "'Double_Quote") diff --git a/samples/server/petstore/haskell-yesod/src/OpenAPIPetstore/Types.hs b/samples/server/petstore/haskell-yesod/src/OpenAPIPetstore/Types.hs index 7057e0e55dac..5e9b72c8facf 100644 --- a/samples/server/petstore/haskell-yesod/src/OpenAPIPetstore/Types.hs +++ b/samples/server/petstore/haskell-yesod/src/OpenAPIPetstore/Types.hs @@ -163,6 +163,7 @@ removeFieldLabelPrefix forParsing prefix = , ("<=", "'Less_Than_Or_Equal_To") , (">=", "'Greater_Than_Or_Equal_To") , ("!=", "'Not_Equal") + , ("<>", "'Not_Equal") , ("~=", "'Tilde_Equal") , ("\\", "'Back_Slash") , ("\"", "'Double_Quote")