@@ -136,6 +136,7 @@ let GetAllAuthUsers (db: NpgsqlConnection) =
136
136
IsStaff = read.bool " is_staff"
137
137
IsActive = read.bool " is_active"
138
138
DateJoined = read.dateTime " date_joined" }
139
+
139
140
db
140
141
|> Sql.existingConnection
141
142
|> Sql.query getAllAuthUsers
@@ -377,6 +378,7 @@ let GetUserStats (db: NpgsqlConnection) (arg: GetUserStatsParams) =
377
378
TotalChatMessages3Days = read.int64 " total_chat_messages_3_days"
378
379
TotalTokenCount3Days = read.int64 " total_token_count_3_days"
379
380
RateLimit = read.int " rate_limit" }
381
+
380
382
db
381
383
|> Sql.existingConnection
382
384
|> Sql.query getUserStats
@@ -395,6 +397,60 @@ let GetUserStats (db: NpgsqlConnection) (arg: GetUserStatsParams) =
395
397
396
398
397
399
400
+ let listAuthUserID = """ -- name: ListAuthUserID :many
401
+ SELECT id FROM auth_user
402
+ """
403
+
404
+
405
+
406
+
407
+ let ListAuthUserID ( db : NpgsqlConnection ) =
408
+ let reader = fun ( read : RowReader ) -> read.int " id"
409
+
410
+ db
411
+ |> Sql.existingConnection
412
+ |> Sql.query listAuthUserID
413
+ |> Sql.execute reader
414
+
415
+
416
+
417
+
418
+
419
+
420
+
421
+
422
+
423
+
424
+ let listAuthUserIDandEmail = """ -- name: ListAuthUserIDandEmail :many
425
+ SELECT id, email FROM auth_user
426
+ """
427
+
428
+
429
+ type ListAuthUserIDandEmailRow = {
430
+ Id: int32 ;
431
+ Email: string ;
432
+ }
433
+
434
+
435
+ let ListAuthUserIDandEmail ( db : NpgsqlConnection ) =
436
+ let reader = fun ( read : RowReader ) -> {
437
+ Id = read.int " id"
438
+ Email = read.string " email" }
439
+
440
+ db
441
+ |> Sql.existingConnection
442
+ |> Sql.query listAuthUserIDandEmail
443
+ |> Sql.execute reader
444
+
445
+
446
+
447
+
448
+
449
+
450
+
451
+
452
+
453
+
398
454
let listAuthUsers = """ -- name: ListAuthUsers :many
399
455
SELECT id, password, last_login, is_superuser, username, first_name, last_name, email, is_staff, is_active, date_joined FROM auth_user ORDER BY id LIMIT @limit OFFSET @offset
400
456
"""
@@ -419,6 +475,7 @@ let ListAuthUsers (db: NpgsqlConnection) (arg: ListAuthUsersParams) =
419
475
IsStaff = read.bool " is_staff"
420
476
IsActive = read.bool " is_active"
421
477
DateJoined = read.dateTime " date_joined" }
478
+
422
479
db
423
480
|> Sql.existingConnection
424
481
|> Sql.query listAuthUsers
@@ -443,6 +500,32 @@ let ListAuthUsers (db: NpgsqlConnection) (arg: ListAuthUsersParams) =
443
500
444
501
445
502
503
+ let totalAuthUsers = """ -- name: TotalAuthUsers :one
504
+ SELECT COUNT(*) FROM auth_user
505
+ """
506
+
507
+
508
+
509
+ let TotalAuthUsers ( db : NpgsqlConnection ) =
510
+
511
+ let reader = fun ( read : RowReader ) -> read.int64 " count"
512
+
513
+ db
514
+ |> Sql.existingConnection
515
+ |> Sql.query totalAuthUsers
516
+ |> Sql.executeRow reader
517
+
518
+
519
+
520
+
521
+
522
+
523
+
524
+
525
+
526
+
527
+
528
+
446
529
let updateAuthUser = """ -- name: UpdateAuthUser :one
447
530
UPDATE auth_user SET first_name = @first_name, last_name= @last_name, last_login = now()
448
531
WHERE id = @id
0 commit comments