diff options
Diffstat (limited to 'src/main.ml')
-rw-r--r-- | src/main.ml | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/main.ml b/src/main.ml deleted file mode 100644 index 003880b..0000000 --- a/src/main.ml +++ /dev/null @@ -1,14 +0,0 @@ -type view = Config of Config.config | Timer of Config.config - -let () = - let html = Document.querySelectorUnsafe "html" in - let main = Document.querySelectorUnsafe "main" in - let rec showView v = - Animation.replaceChild html main (fun _ -> - match v with - | Config config -> - ConfigView.render config (fun config -> showView (Timer config)) - | Timer config -> - TimerView.render config (fun config -> showView (Config config))) - in - showView (Config Config.init) |