Length of empty array should return 0, not NULL (#269)

circuithub · Aug 16, 2023 · 8a468f5 · 8a468f5
1 parent 9e7a447
commit 8a468f5
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/Rel8/Type/Array.hs b/src/Rel8/Type/Array.hs
@@ -150,8 +150,12 @@ upper a = Opaleye.FunExpr "array_lower" [a, one]
 
 
 length :: Opaleye.PrimExpr -> Opaleye.PrimExpr
-length a = Opaleye.FunExpr "array_length" [a, one]
+length a = Opaleye.FunExpr "coalesce" [Opaleye.FunExpr "array_length" [a, one], zero]
 
 
 one :: Opaleye.PrimExpr
-one = Opaleye.ConstExpr (Opaleye.IntegerLit 1)
+one = Opaleye.ConstExpr (Opaleye.IntegerLit 1)
+
+
+zero :: Opaleye.PrimExpr
+zero = Opaleye.ConstExpr (Opaleye.IntegerLit 0)