Set swagger type of text schema (#1561)

wireapp · Jun 2, 2021 · e8ec6f6 · e8ec6f6
1 parent 959fc08
commit e8ec6f6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/libs/schema-profunctor/src/Data/Schema.hs b/libs/schema-profunctor/src/Data/Schema.hs
@@ -503,9 +503,11 @@ text :: Text -> ValueSchema NamedSwaggerDoc Text
 text name =
   named name $
     mkSchema
-      (pure mempty)
+      (pure d)
       (A.withText (T.unpack name) pure)
       (pure . A.String)
+  where
+    d = mempty & S.type_ ?~ S.SwaggerString
 
 -- | A schema for a textual value with possible failure.
 parsedText ::