update haskell-servant samples

2021-06-14 17:01:26 +08:00
parent cdb92086db
commit 45175f018b
3 changed files with 4 additions and 3 deletions
--- a/samples/server/petstore/haskell-servant/.openapi-generator/VERSION
+++ b/samples/server/petstore/haskell-servant/.openapi-generator/VERSION
@@ -1 +1 @@
-5.0.0-SNAPSHOT
+5.2.0-SNAPSHOT
--- a/samples/server/petstore/haskell-servant/lib/OpenAPIPetstore/API.hs
+++ b/samples/server/petstore/haskell-servant/lib/OpenAPIPetstore/API.hs
@@ -14,8 +14,8 @@
 -fno-warn-unused-binds -fno-warn-unused-imports -freduction-depth=328 #-}

 module OpenAPIPetstore.API
-  -- * Client and Server
-  ( Config(..)
+  ( -- * Client and Server
+    Config(..)
  , OpenAPIPetstoreBackend(..)
  , createOpenAPIPetstoreClient
  , runOpenAPIPetstoreServer
--- a/samples/server/petstore/haskell-servant/lib/OpenAPIPetstore/Types.hs
+++ b/samples/server/petstore/haskell-servant/lib/OpenAPIPetstore/Types.hs
@@ -194,6 +194,7 @@ removeFieldLabelPrefix forParsing prefix =
      , ("~", "'Tilde")
      , ("?", "'Question_Mark")
      , (">=", "'Greater_Than_Or_Equal_To")
+      , ("~=", "'Tilde_Equal")
      ]
    mkCharReplacement (replaceStr, searchStr) = T.unpack . replacer (T.pack searchStr) (T.pack replaceStr) . T.pack
    replacer =