Place the meta as the last value.

digitallyinduced · Aug 26, 2024 · 2dc6e5d · 2dc6e5d
1 parent 05fe2f2
commit 2dc6e5d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/ihp-ide/IHP/SchemaCompiler.hs b/ihp-ide/IHP/SchemaCompiler.hs
@@ -970,7 +970,10 @@ compileDataTypePattern table@(CreateTable { name, inherits }) = tableNameToModel
                         |> filter (\(fieldName, _) -> fieldName /= "meta" && Text.toLower fieldName /= colName && fieldName /= "id")
 
 
+        -- Place the `meta` as the last value.
         allDateFields = currentDataFields <> parentDataFields
+            |> filter (\(fieldName, _) -> fieldName /= "meta")
+            |> \fields -> fields <> [("meta", "MetaBag")]
 
 compileTypePattern :: (?schema :: Schema) => CreateTable -> Text
 compileTypePattern table@(CreateTable { name, inherits }) = tableNameToModelName name <> "' " <> dataTypeCompiled