Fix bug regarding order of fields in data editor

digitallyinduced · Aug 28, 2021 · 3a087ce · 3a087ce
1 parent 26f4481
commit 3a087ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/IHP/IDE/Data/Controller.hs b/IHP/IDE/Data/Controller.hs
@@ -167,7 +167,7 @@ fetchTableNames connection = do
 
 fetchTableCols :: PG.Connection -> Text -> IO [ColumnDefinition]
 fetchTableCols connection tableName = do
-    PG.query connection "SELECT column_name,data_type,column_default,CASE WHEN is_nullable='YES' THEN true ELSE false END FROM information_schema.columns where table_name = ?" (PG.Only tableName)
+    PG.query connection "SELECT column_name,data_type,column_default,CASE WHEN is_nullable='YES' THEN true ELSE false END FROM information_schema.columns where table_name = ? ORDER BY ordinal_position" (PG.Only tableName)
 
 fetchRow :: PG.Connection -> Text -> [Text] -> IO [[DynamicField]]
 fetchRow connection tableName primaryKeyValues = do