Remove duplicated func

digitallyinduced · Sep 16, 2024 · 2ce5f4f · 2ce5f4f
1 parent c957833
commit 2ce5f4f
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/ihp-ide/IHP/SchemaCompiler.hs b/ihp-ide/IHP/SchemaCompiler.hs
@@ -431,7 +431,7 @@ dataFields table@(CreateTable { name, columns }) = columnFields <> queryBuilderF
             let fieldName = columnNameToFieldName column.name
             in
                 ( fieldName
-                , if isVariableAttribute table column
+                , if isRefCol table column
                         then fieldName
                         else haskellType table column
                 )
@@ -503,11 +503,7 @@ columnsReferencingTable theTableName =
             _ -> Nothing
 
 variableAttributes :: (?schema :: Schema) => CreateTable -> [Column]
-variableAttributes table@(CreateTable { columns }) = filter (isVariableAttribute table) columns
-
-isVariableAttribute :: (?schema :: Schema) => CreateTable -> Column -> Bool
-isVariableAttribute = isRefCol
-
+variableAttributes table@(CreateTable { columns }) = filter (isRefCol table) columns
 
 -- | Returns @True@ when the column is referencing another column via foreign key constraint
 isRefCol :: (?schema :: Schema) => CreateTable -> Column -> Bool