DataSync: fix strings in arrays are double escaped

digitallyinduced · Dec 7, 2024 · ad90fc2 · ad90fc2
1 parent 9bc16f6
commit ad90fc2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/IHP/DataSync/REST/Controller.hs b/IHP/DataSync/REST/Controller.hs
@@ -203,7 +203,7 @@ aesonValueToPostgresValue (Number value) = case Scientific.floatingOrInteger val
     Left (floating :: Double) -> PG.toField floating
     Right (integer :: Integer) -> PG.toField integer
 aesonValueToPostgresValue Data.Aeson.Null = PG.toField PG.Null
-aesonValueToPostgresValue (Data.Aeson.Array values) = PG.toField (PG.PGArray (Vector.toList values))
+aesonValueToPostgresValue (Data.Aeson.Array values) = PG.toField (PG.PGArray (map aesonValueToPostgresValue (Vector.toList values)))
 aesonValueToPostgresValue object@(Object values) =
     let
         tryDecodeAsPoint :: Maybe Point