Call quote_ident before nextval (#217)

It turns out you can't do `nextval('FooBar_id_seq')` in PostgreSQL, you need to write `nextval('"FooBar_id_seq"')`.
circuithub · Nov 22, 2022 · 42c1e1c · 42c1e1c
1 parent ed4b5bb
commit 42c1e1c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/shell.nix b/shell.nix
@@ -1,6 +1,6 @@
 let
   sources = import ./nix/sources.nix;
-  pkgs = import sources.nixpkgs {};
+  pkgs = import sources.nixpkgs {overlays = [];};
   hsPkgs = import ./default.nix;
 in
   hsPkgs.shellFor {

diff --git a/src/Rel8/Expr/Sequence.hs b/src/Rel8/Expr/Sequence.hs
@@ -11,11 +11,12 @@ import Prelude
 import Rel8.Expr ( Expr )
 import Rel8.Expr.Function ( function )
 import Rel8.Expr.Serialize ( litExpr )
+import Rel8.Expr.Text ( quoteIdent )
 
 -- text
 import Data.Text ( pack )
 
 
 -- | See https://www.postgresql.org/docs/current/functions-sequence.html
 nextval :: String -> Expr Int64
-nextval = function "nextval" . litExpr . pack
+nextval = function "nextval" . quoteIdent . litExpr . pack