Skip to content

Commit cdb9208

Browse files
authored
[haskell][server]: Set "AnyType" to Aeson.Value (#9733)
* [haskell][server]: Set "AnyType" to `Aeson.Value` `AnyType` would not be translated to the json value type. This fixes that. * [haskell][server] Fix haddock error in `API.hs` Haddock (the Haskell documentation generator) would choke on the misplaced docstring. The heading has to appear inside the list.
1 parent 856eca4 commit cdb9208

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/HaskellServantCodegen.java

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -201,6 +201,7 @@ public HaskellServantCodegen() {
201201
typeMapping.put("number", "Double");
202202
typeMapping.put("BigDecimal", "Double");
203203
typeMapping.put("any", "Value");
204+
typeMapping.put("AnyType", "Value");
204205
typeMapping.put("UUID", "UUID");
205206
typeMapping.put("URI", "Text");
206207
typeMapping.put("ByteArray", "Text");

modules/openapi-generator/src/main/resources/haskell-servant/API.mustache

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -14,8 +14,8 @@
1414
-fno-warn-unused-binds -fno-warn-unused-imports -freduction-depth=328 #-}
1515

1616
module {{title}}.API
17-
-- * Client and Server
18-
( Config(..)
17+
( -- * Client and Server
18+
Config(..)
1919
, {{title}}Backend(..)
2020
, create{{title}}Client
2121
, run{{title}}Server

0 commit comments

Comments
 (0)