Merge pull request #33 from osense/master

Mark list expressions as constant.
m4dc4p · May 5, 2019 · a1fbc8a · a1fbc8a
2 parents d033877 + 0da2b6a
commit a1fbc8a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Database/HaskellDB/Sql/Default.hs b/src/Database/HaskellDB/Sql/Default.hs
@@ -462,6 +462,7 @@ defaultSqlExpr gen e =
       CastExpr typ e1 -> CastSqlExpr typ (sqlExpr gen e1)
   where
     isConstAttr :: PrimExpr -> Bool
+    isConstAttr (ListExpr _) = True
     isConstAttr (ConstExpr _) = True
     isConstAttr (AttrExpr _) = True
     isConstAttr _ = False