File tree Expand file tree Collapse file tree 5 files changed +37
-3
lines changed Expand file tree Collapse file tree 5 files changed +37
-3
lines changed Original file line number Diff line number Diff line change 16
16
<FsDocsReleaseNotesLink >https://www.nuget.org/packages/FsHttp#release-body-tab</FsDocsReleaseNotesLink >
17
17
18
18
<PackageReleaseNotes >
19
+ 14.5.1
20
+ - Fixed untracked bug: using config_useBaseUrl as http template won't crash when printing unfinished requests
21
+
19
22
14.5.0
20
23
- Added 'useBaseUrl' and 'transformUrl' to Config for better composability
21
24
- Fixed some extension methods
Original file line number Diff line number Diff line change @@ -38,7 +38,7 @@ let httpForMySpecialEnvironment =
38
38
// we have to change the URL for any method using a header transformer,
39
39
// like so:
40
40
config_ transformHeader ( fun ( header : Header ) ->
41
- let address = baseUrl </> header.target.address.Value
41
+ let address = baseUrl </> ( header.target.address |> Option.defaultValue " " )
42
42
{ header with target.address = Some address })
43
43
44
44
// other header values can be just configured as usual:
Original file line number Diff line number Diff line change
1
+
2
+ #r " ../src/FsHttp/bin/debug/net6.0/FsHttp.dll"
3
+
4
+ open System.IO
5
+ open System.Net .Http
6
+ open System.Net .Http .Headers
7
+ open FsHttp
8
+ open FsHttp.Operators
9
+
10
+
11
+ let httpd0 =
12
+ http {
13
+ config_ transformHeader ( fun ( header : Header ) ->
14
+ printfn " header.target: %A " header.target
15
+ printfn " header.target.address: %A " header.target.address
16
+
17
+ let address = " http://aaaa:5000" </> ( header.target.address |> Option.defaultValue " " )
18
+ { header with target.address = Some address })
19
+ }
20
+
21
+
22
+
23
+ let httpd1 =
24
+ http {
25
+ config_ transformUrl ( fun url -> " http://aaaa:5000" </> url)
26
+ }
27
+
28
+ let httpd2 =
29
+ http {
30
+ config_ useBaseUrl " http://aaaa:5000"
31
+ }
Original file line number Diff line number Diff line change @@ -482,7 +482,7 @@ module Config =
482
482
483
483
let transformUrl transformer ( context : IUpdateConfig < _ >) =
484
484
context |> transformHeader ( fun header ->
485
- let address = transformer header.target.address.Value
485
+ let address = transformer ( header.target.address |> Option.defaultValue " " )
486
486
{ header with target.address = Some address })
487
487
488
488
let useBaseUrl ( baseUrl : string ) ( context : IUpdateConfig < _ >) =
Original file line number Diff line number Diff line change @@ -178,7 +178,7 @@ let [<TestCase>] ``Header Transformer``() =
178
178
let httpSpecial =
179
179
let transformWith suffix =
180
180
fun ( header : Header ) ->
181
- let address = header.target.address.Value
181
+ let address = ( header.target.address |> Option.defaultValue " " )
182
182
{ header with target.address = Some $" {address}{suffix}" }
183
183
http {
184
184
config_ transformHeader ( transformWith urlSuffix1)
You can’t perform that action at this time.
0 commit comments