@@ -6710,7 +6710,7 @@ R.matchNth = ({n, rx}) => s => {
67106710// negative indices are processed relative to the end
67116711
67126712R . matchNthWith = ( { p, n, rx} ) => s => {
6713- const xs = R . matchAllWith ( { p, rx} ) ( s ) ,
6713+ const xs = R . matchAllWith ( { p, rx} ) ( s ) ;
67146714 if ( n - 1 >= xs . length ) return [ ] ;
67156715 else if ( n >= 0 ) return [ xs [ n - 1 ] ] ;
67166716 else return [ xs . slice ( n ) [ 0 ] ] ;
@@ -12994,10 +12994,10 @@ Node.CLA.scan = ({mandatory, optional = {}}) => {
1299412994
1299512995
1299612996Node . CLA . setEnv = o => {
12997- Object . keys ( o ) . forEach ( k => {
12998- if ( k in process . env ) console . warn ( `overwrite property "${ k } "` ) ;
12999- process . env [ k ] = o [ k ] ;
13000- } ) ;
12997+ for ( const k of O . keys ( o ) ) {
12998+ if ( k in process . env ) throw new Err ( `overwrite existing property "${ k } "` ) ;
12999+ else process . env [ k ] = o [ k ] ;
13000+ }
1300113001
1300213002 return o ;
1300313003} ;
@@ -13216,48 +13216,56 @@ Node.SQL = {};
1321613216Node . SQL . sqlQuery = ( { query, meta = null } ) => ( {
1321713217 [ $ ] : "SqlQuery" ,
1321813218 [ $$ ] : "SqlQuery" ,
13219- meta,
1322013219 query,
13220+ meta,
1322113221} ) ;
1322213222
1322313223
13224- Node . SQL . sqlResult = ( { data, fields} ) => ( {
13224+ Node . SQL . sqlResult = ( { data, fields, query , meta } ) => ( {
1322513225 [ $ ] : "SqlResult" ,
1322613226 [ $$ ] : "SqlResult" ,
1322713227 data,
1322813228 fields,
13229+ query,
13230+ meta,
1322913231} ) ;
1323013232
1323113233
1323213234//█████ Combinators ███████████████████████████████████████████████████████████
1323313235
1323413236
13235- Node . SQL . createCredentials = ( { host, port, name, charset = "utf8mb4" } ) => ( {
13236- host,
13237- port,
13238- user : process . env . dbUser ,
13239- password : process . env . dbPassword ,
13240- database : name ,
13241- charset,
13242- } ) ;
13237+ Node . SQL . createCredentials = ( { host, port, name, charset = "utf8mb4" } ) => {
13238+ const db = JSON . parse ( process . env . db ) ;
13239+
13240+ return {
13241+ host,
13242+ port,
13243+ user : db . user ,
13244+ password : db . password ,
13245+ database : name ,
13246+ charset,
13247+ } ;
13248+ } ;
13249+
1324313250
13251+ // requires the mysql package dependency
1324413252
13245- Node . SQL . createResource = credentials => mysql . createConnection ( credentials ) ;
13253+ Node . SQL . createResource = mysql => credentials => mysql . createConnection ( credentials ) ;
1324613254
1324713255
1324813256Node . SQL . connect = ressource =>
13249- Cons ( ( res , rej ) =>
13257+ Cont ( ( res , rej ) =>
1325013258 ressource . connect ( e => e
1325113259 ? rej ( new Err ( e ) ) : res ( ressource ) ) ) ;
1325213260
1325313261
1325413262Node . SQL . disconnect = ressource =>
13255- Cons ( ( res , rej ) =>
13263+ Cont ( ( res , rej ) =>
1325613264 ressource . end ( e => e
1325713265 ? rej ( new Err ( e ) ) : res ( true ) ) ) ;
1325813266
1325913267
13260- Node . SQL . query = connection => sql => Cons ( ( res , rej ) => {
13268+ Node . SQL . query = connection => sql => Cont ( ( res , rej ) => {
1326113269 return connection . query ( sql , ( e , data , fields ) => {
1326213270 if ( e ) return rej ( new Err ( e ) ) ;
1326313271 else return res ( { data, fields} ) ;
0 commit comments