open Microsoft.FSharp.Reflection

open System.Reflection

open System

​

// http://blog.slaks.net/2013-12-25/redirecting-assembly-loads-at-runtime/

printfn "starting up"

​

let RedirectAssembly shortName (targetVersion : Version) publicKeyToken = 

    let rec onResolveEvent = new ResolveEventHandler( fun sender evArgs ->

        let requestedAssembly = 

            AssemblyName(evArgs.Name)

        if requestedAssembly.Name <> shortName 

        then 

            Unchecked.defaultof<Assembly>

        else 

            printfn 

                "Redirecting assembly load of %s ,\tloaded by %s" 

                evArgs.Name 

                (if evArgs.RequestingAssembly = null then 

                     "(unknown)"

                 else 

                     evArgs.RequestingAssembly.FullName)

            requestedAssembly.Version <- targetVersion

            requestedAssembly.SetPublicKeyToken (AssemblyName(sprintf "x, PublicKeyToken=%s" publicKeyToken).GetPublicKeyToken())

            requestedAssembly.CultureInfo <- System.Globalization.CultureInfo.InvariantCulture

            AppDomain.CurrentDomain.remove_AssemblyResolve(onResolveEvent)

            Assembly.Load (requestedAssembly)

            )

    AppDomain.CurrentDomain.add_AssemblyResolve(onResolveEvent)

// RedirectAssembly "FSharp.Core" (Version("4.3.1.0")) "b03f5f7f11d50a3a"