From 7da3c3d938e4b64a43963d602ab4a0a8c89f6f9e Mon Sep 17 00:00:00 2001
From: "Somhairle H. Marisol" <muqiu-han@outlook.com>
Date: Tue, 22 Sep 2026 02:13:04 +0800
Subject: Add real AKShare stock quote probe slice (3d-17)

---
 src/FundLab.Api/App.fs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'src/FundLab.Api/App.fs')

diff --git a/src/FundLab.Api/App.fs b/src/FundLab.Api/App.fs
index b083c37..9565485 100644
--- a/src/FundLab.Api/App.fs
+++ b/src/FundLab.Api/App.fs
@@ -357,6 +357,7 @@ type MarketProbes =
         NavDates: INavDateProbe
         NavSeries: INavSeriesProbe
         BondQuotes: IBondQuoteProbe
+        StockQuotes: IStockQuoteProbe
     }
 
 type BondQuoteApiResponse =
@@ -367,6 +368,14 @@ type BondQuoteApiResponse =
         maturityDate: string option
     }
 
+type StockQuoteApiResponse =
+    {
+        code: string
+        name: string option
+        price: string option
+        currency: string
+    }
+
 module App =
     let addOptionFriendlyJson (services: IServiceCollection) =
         let settings =
@@ -1728,11 +1737,28 @@ module App =
                     ctx
             | Error failure -> marketDataError failure next ctx
 
+    let private getStockQuote (probe: IStockQuoteProbe) : HttpHandler =
+        fun next ctx ->
+            let code = ctx.Request.Query["code"].ToString()
+
+            match probe.GetQuote(code, ctx.RequestAborted) with
+            | Ok quote ->
+                json
+                    ({ code = quote.Code
+                       name = quote.Name
+                       price = quote.Price |> Option.map decimalText
+                       currency = quote.Currency }
+                     : StockQuoteApiResponse)
+                    next
+                    ctx
+            | Error failure -> marketDataError failure next ctx
+
     let private marketProbeRoutes (probes: MarketProbes) =
         [
             GET >=> route "/market/nav-dates" >=> getMarketNavDates probes.NavDates
             GET >=> route "/market/nav-series" >=> getMarketNavSeries probes.NavSeries
             GET >=> route "/market/bond-quote" >=> getBondQuote probes.BondQuotes
+            GET >=> route "/market/stock-quote" >=> getStockQuote probes.StockQuotes
         ]
 
     let private createApplicationInternal
-- 
cgit v1.2.3