@@ -364,17 +364,20 @@ let buildHost (argv: string[]) =
364364 )
365365 .Build()
366366
367- let export (logger: ILogger) ( connStr: string, outputDir: DirectoryInfo, startDate: DateTime, endDate: DateTime) =
367+ let export (logger: ILogger, connStr: string, outputDir: DirectoryInfo, startDate: DateTime, endDate: DateTime) =
368368 task {
369- logger.Information($"Querying from {StartDate} to {EndDate}", startDate, endDate)
369+ logger.Information($"Querying from {StartDate} to {EndDate}", startDate, endDate)
370370 // Do export stuff...
371371 }
372372
373373[<EntryPoint>]
374374let main argv =
375375 let host = buildHost argv
376- let logger = host.Services.GetService<ILogger>()
377- let cfg = host.Services.GetService<IConfiguration>()
376+ let cfg = host.Services.GetRequiredService<IConfiguration>()\
377+
378+ let logger =
379+ host.Services.GetRequiredService<ILogger>()
380+ |> Input.inject
378381
379382 let connStr =
380383 Input.option "--connection-string"
@@ -392,16 +395,16 @@ let main argv =
392395 Input.option "--start-date"
393396 |> Input.defaultValue (DateTime.Today.AddDays(-7))
394397 |> desc "Start date (defaults to 1 week ago from today)"
395-
398+
396399 let endDate =
397400 Input.option "--end-date"
398401 |> Input.defaultValue DateTime.Today
399402 |> Input.desc "End date (defaults to today)"
400403
401404 rootCommand argv {
402405 description "Data Export"
403- inputs (connStr, outputDir, startDate, endDate)
404- setAction (fun () -> export logger)
406+ inputs (logger, connStr, outputDir, startDate, endDate)
407+ setAction export
405408 }
406409 |> Async.AwaitTask
407410 |> Async.RunSynchronously
0 commit comments