Fixed sql error when inserting an array of uuids. Fixes #593

IHP/SchemaCompiler.hs

@@ -17,6 +17,7 @@ import qualified Text.Countable as Countable
 import qualified IHP.IDE.SchemaDesigner.Parser as SchemaDesigner
 import IHP.IDE.SchemaDesigner.Types
 import Control.Monad.Fail
+import qualified IHP.IDE.SchemaDesigner.Compiler as SqlCompiler
 
 compile :: IO ()
 compile = do
@@ -352,7 +353,17 @@ compileCreate table@(CreateTable { name, columns }) =
     let
         modelName = tableNameToModelName name
         columnNames = commaSep (map (get #name) columns)
-        values = commaSep (map (const "?") columns)
+        values = commaSep (map columnPlaceholder columns)
+
+        -- When we do an INSERT query like @INSERT INTO values (uuids) VALUES (?)@ where the type of @uuids@ is @UUID[]@
+        -- we need to add a typecast to the placeholder @?@, otherwise this will throw an sql error
+        -- See /~https://github.com/digitallyinduced/ihp/issues/593
+        columnPlaceholder column@(Column { columnType }) = if columnPlaceholderNeedsTypecast column
+                then "? :: " <> SqlCompiler.compilePostgresType columnType
+                else "?"
+            where
+                columnPlaceholderNeedsTypecast Column { columnType = PArray {} } = True
+                columnPlaceholderNeedsTypecast _ = False
 
         toBinding column@(Column { name }) =
             if hasExplicitOrImplicitDefault column