fixed untracked bug: using config_useBaseUrl as a http template won't…

… crash when printing unfinished requests

Directory.Build.props

@@ -16,6 +16,9 @@
     <FsDocsReleaseNotesLink>https://www.nuget.org/packages/FsHttp#release-body-tab</FsDocsReleaseNotesLink>
 
     <PackageReleaseNotes>
+      14.5.1
+      - Fixed untracked bug: using config_useBaseUrl as http template won't crash when printing unfinished requests
+
       14.5.0
       - Added 'useBaseUrl' and 'transformUrl' to Config for better composability
       - Fixed some extension methods

docs/Composability.fsx

@@ -38,7 +38,7 @@ let httpForMySpecialEnvironment =
         // we have to change the URL for any method using a header transformer,
         // like so:
         config_transformHeader (fun (header: Header) ->
-            let address = baseUrl </> header.target.address.Value
+            let address = baseUrl </> (header.target.address |> Option.defaultValue "")
             { header with target.address = Some address })
 
         // other header values can be just configured as usual:

fiddle/issue-178.fsx

@@ -0,0 +1,31 @@
+
+#r "../src/FsHttp/bin/debug/net6.0/FsHttp.dll"
+
+open System.IO
+open System.Net.Http
+open System.Net.Http.Headers
+open FsHttp
+open FsHttp.Operators
+
+
+let httpd0 =
+    http {
+        config_transformHeader (fun (header: Header) ->
+            printfn "header.target: %A" header.target
+            printfn "header.target.address: %A" header.target.address
+
+            let address = "http://aaaa:5000" </> (header.target.address |> Option.defaultValue "")
+            { header with target.address = Some address })
+    }
+
+
+
+let httpd1 =
+    http {
+        config_transformUrl (fun url -> "http://aaaa:5000" </> url)
+    }
+
+let httpd2 =
+    http {
+        config_useBaseUrl "http://aaaa:5000"
+    }

src/FsHttp/Dsl.fs

@@ -482,7 +482,7 @@ module Config =
 
     let transformUrl transformer (context: IUpdateConfig<_>) =
         context |> transformHeader (fun header ->
-            let address = transformer header.target.address.Value
+            let address = transformer (header.target.address |> Option.defaultValue "")
             { header with target.address = Some address })
 
     let useBaseUrl (baseUrl: string) (context: IUpdateConfig<_>) =

src/Tests/Config.fs

@@ -178,7 +178,7 @@ let [<TestCase>] ``Header Transformer``() =
     let httpSpecial =
         let transformWith suffix =
             fun (header: Header) ->
-                let address = header.target.address.Value
+                let address = (header.target.address |> Option.defaultValue "")
                 { header with target.address = Some $"{address}{suffix}" }
         http {
             config_transformHeader (transformWith urlSuffix1)