@@ -80,11 +80,9 @@ distinctspec =
8080table ::(Selects names exprs, Inserts exprs inserts)
8181 => TableSchema names -> Opaleye.Table inserts exprs
8282table (TableSchema name schema columns) =
83− Opaleye.Table qualified (tableFields columns)
84− where
85− qualified = case schema of
86− Nothing -> name
87− Just qualifier -> qualifier <> "." <> name
83+ case schema of
84+ Nothing -> Opaleye.Table name (tableFields columns)
85+ Just schemaName -> Opaleye.TableWithSchema schemaName name (tableFields columns)
8886
8987
9088tableFields :: (Selects names exprs, Inserts exprs inserts)