Source file ReasonReactRouter.ml

let hash _location = ""

(* TODO: Maybe this should be implemented? *)
let path ?serverUrlString:_ () = []

(* TODO: Maybe this should be implemented? *)
let search ?serverUrlString:_ () = ""
let push (_path : string) = ()
let replace (_path : string) = ()

type url = { path : string list; hash : string; search : string }
type watcherID = unit -> unit

let url ?serverUrlString () = { path = path ?serverUrlString (); hash = hash (); search = search ?serverUrlString () }
let dangerouslyGetInitialUrl = url
let watchUrl _callback () = ()
let unwatchUrl _watcherID = ()
let useUrl ?(serverUrl : url option) () = match serverUrl with Some serverUrl -> serverUrl | None -> url ()