Fix wrong comma when no parent table

digitallyinduced · Aug 15, 2024 · 765a969 · 765a969
1 parent bebd467
commit 765a969
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/ihp-ide/IHP/SchemaCompiler.hs b/ihp-ide/IHP/SchemaCompiler.hs
@@ -351,10 +351,11 @@ compileData table@(CreateTable { name, inherits }) =
         typeArguments :: Text
         typeArguments = dataTypeArguments table |> unwords
 
-        -- Include fields from parent tables
+        -- Include fields from parent table, if any.
         parentFields = inherits
             |> maybe "" (\parentTable -> compileParentFields parentTable)
-            |> (<> ", ")
+            -- Add comma, if there are fields from parent tables
+            |> (\parentFields -> if null parentFields then "" else parentFields <> ", ")
 
         compileParentFields parentTable =
             let parentTableDef = findTableByName parentTable