git.iko.soy/rel8
on master help sign in
Fix `table` for tables with schemas
410af83Ollie Charles
src/Rel8/Table/Opaleye.hs+3−5
compare with master
unifiedsplit
@@ -80,11 +80,9 @@ distinctspec =
80table ::(Selects names exprs, Inserts exprs inserts)
80table ::(Selects names exprs, Inserts exprs inserts)
81 => TableSchema names -> Opaleye.Table inserts exprs
81 => TableSchema names -> Opaleye.Table inserts exprs
82table (TableSchema name schema columns) =
82table (TableSchema name schema columns) =
83− Opaleye.Table qualified (tableFields columns)
84− where
85− qualified = case schema of
83+ case schema of
86− Nothing -> name
84+ Nothing -> Opaleye.Table name (tableFields columns)
87− Just qualifier -> qualifier <> "." <> name
85+ Just schemaName -> Opaleye.TableWithSchema schemaName name (tableFields columns)
88
86
89
87
90tableFields :: (Selects names exprs, Inserts exprs inserts)
88tableFields :: (Selects names exprs, Inserts exprs inserts)