From 1bbbaf2ca2ba8bdaecc0b99a8895ea2ac117ce70 Mon Sep 17 00:00:00 2001
From: Marc Scholten <marc@digitallyinduced.com>
Date: Sat, 8 Aug 2020 13:36:36 +0200
Subject: [PATCH] Fixed generated view code missing form fields when the table
 name has an underscore

---
 IHP/IDE/CodeGen/ViewGenerator.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/IHP/IDE/CodeGen/ViewGenerator.hs b/IHP/IDE/CodeGen/ViewGenerator.hs
index 6301a25aa..f510acd9b 100644
--- a/IHP/IDE/CodeGen/ViewGenerator.hs
+++ b/IHP/IDE/CodeGen/ViewGenerator.hs
@@ -60,7 +60,7 @@ buildPlan' schema config =
                 ]
 
             modelFields :: [Text]
-            modelFields = fieldsForTable schema pluralVariableName
+            modelFields = fieldsForTable schema (modelNameToTableName pluralVariableName)
 
 
             viewHeader =