anchor.diff:  
       /// Modifies the router to use a constant URL.
       let At (url: string) (r: Router<'T>): Router<'T> =
  -        New r.Route (fun _ -> MakeUri url |> Some)
  +        New r.Route (fun _ -> makeUri url |> Some)
   
       let Empty<'Action when 'Action : equality> : Router<'Action> =
           New (fun _ -> None) (fun _ -> None)
  
positive.code: module Router =
      module J = IntelliFactory.WebSharper.Core.Json
  
      /// Creates a absolute or relative URI form a string.
      let private MakeUri uri =
          match Uri.TryCreate(uri, UriKind.Absolute) with
          | true, uri -> uri
          | _         -> Uri(uri, UriKind.Relative)
  
      /// Constructs a custom new router with a given route and link functions.
      let New route link : Router<'Action> =
          {
              StaticRoutes    = Dictionary()
              StaticLinks     = Dictionary()
              DynamicRoute    = route
              DynamicLink     = link
          }
  
      /// Constructs a router from a finite table defining a
  
negative.code: /// Provides a bijection between URL locations and abstract actions.
  type Router<'Action when 'Action : equality> =
      internal {
          StaticRoutes : IDictionary<string,'Action>
          StaticLinks : IDictionary<'Action,Location>
          DynamicRoute : Http.Request -> option<'Action>
          DynamicLink : 'Action -> option<Location>
      }
  
      /// Tries to constructs a link to a given action. Fails with None
  