fix schema renderer

app/doc/Swarm/Doc/Schema/Refined.hs

@@ -87,6 +87,7 @@ getSchemaReferences = \case
   Alternatives xs -> concatMap getSchemaReferences xs
   Reference x -> pure x
   ListOf x -> getSchemaReferences x
+  EnumList _ -> []
 
 -- | A subset of all JSON schemas, conforming to internal Swarm conventions.
 --

app/doc/Swarm/Doc/Schema/Render.hs

@@ -22,6 +22,7 @@ import Data.Text qualified as T
 import Data.Text.IO qualified as TIO
 import Data.Vector qualified as V
 import Swarm.Doc.Schema.Arrangement
+import Data.List.NonEmpty qualified as NE
 import Swarm.Doc.Schema.Parse
 import Swarm.Doc.Schema.Refined
 import Swarm.Doc.Schema.SchemaType
@@ -176,6 +177,7 @@ listToText titleMap = \case
   Alternatives xs -> renderAlternatives $ map (listToText titleMap) xs
   Reference r@(SchemaIdReference x) -> schemaLink r x
   ListOf x -> listToText titleMap x <> text " list"
+  EnumList xs -> renderAlternatives $ NE.toList $ text <$> xs
  where
   renderAlternatives = mconcat . intersperse (text " or ")
   schemaLink r = link (fragmentHref titleMap r) "Link to object properties" . text

app/doc/Swarm/Doc/Schema/SchemaType.hs

@@ -9,6 +9,7 @@ import Data.Aeson
 import Data.Text (Text)
 import Data.Text qualified as T
 import System.FilePath (takeBaseName)
+import Data.List.NonEmpty (NonEmpty)
 
 newtype SingleOrList a = SingleOrList
   { getList :: [a]
@@ -29,6 +30,7 @@ data SchemaType
     Reference SchemaIdReference
   | -- | Members of a list, all of the given schema type
     ListOf SchemaType
+  | EnumList (NonEmpty Text)
   deriving (Eq, Ord, Show)
 
 newtype SchemaIdReference = SchemaIdReference Text