Source file ReasonReactRouter.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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 ()