@@ -399,7 +399,6 @@ let createHttpHandlerRaw(url, auth: Auth option) : HttpMessageHandler =
399399 handler.UseProxy <- true
400400 handler :> _
401401
402-
403402let createHttpHandler =
404403 memoizeBy
405404 // Truncates the url to only to host part, so there is only one handler per source/host.
@@ -408,7 +407,13 @@ let createHttpHandler =
408407 ( fun ( url : string , auth ) -> url.Substring( 0 , url.IndexOf( '/' , 8 ) + 1 ), auth)
409408 createHttpHandlerRaw
410409
411- let createHttpClient ( url , auth : Auth option ) : HttpClient =
410+ let private paketVersion =
411+ let attrs = System.Reflection.Assembly.GetExecutingAssembly() .GetCustomAttributes( false )
412+
413+ attrs
414+ |> Seq.pick ( fun a -> match a with | :? System.Reflection.AssemblyInformationalVersionAttribute as i -> Some i.InformationalVersion | _ -> None)
415+
416+ let createHttpClient ( url , auth : Auth option ) : HttpClient =
412417 let handler = createHttpHandler ( url, auth)
413418 let client = new HttpClient( handler)
414419 match auth with
@@ -432,7 +437,7 @@ let createHttpClient (url,auth:Auth option) : HttpClient =
432437 | Some( Token token) ->
433438 client.DefaultRequestHeaders.Authorization <-
434439 new System.Net.Http.Headers.AuthenticationHeaderValue( " token" , token)
435- client.DefaultRequestHeaders.Add( " user-agent" , " Paket" )
440+ client.DefaultRequestHeaders.Add( " user-agent" , sprintf " Paket ( %s ) " paketVersion )
436441 client
437442
438443#if USE_ WEB_ CLIENT_ FOR_ UPLOAD
0 commit comments