crunch config

src/config.ml

@@ -1,9 +1,11 @@
 open Parse_config
 
 let config_data =
-  let read_file file = In_channel.with_open_bin file In_channel.input_all in
-  let content = read_file "default.config" in
-  let v = Parse_data.parse content in
+  let path = Fpath.to_string (Fpath.v "default.config") in
+  match Assets_crunch.read path with
+  | None -> Fmt.failwith "static file not found: `%s`" path
+  | Some data ->
+      let v = Parse_data.parse data in
       (*Fmt.epr "config file:@\n%a@." Pp_debug.pp_config v;*)
       v