This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import org.apache.flink.table.api.{EnvironmentSettings, TableEnvironment} | |
| /* | |
| * Stacktrace | |
| * ... | |
| * Caused by: java.lang.RuntimeException: Could not instantiate generated class 'SortAggregateWithKeys$16' | |
| * ... | |
| * Caused by: org.apache.flink.util.FlinkRuntimeException: org.apache.flink.api.common.InvalidProgramException: Table program cannot be compiled. This is a bug. Please file an issue. | |
| * ... | |
| */ |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <ocsigen> | |
| <server> | |
| <port>8080</port> | |
| <logdir>local/var/log/mb</logdir> | |
| <datadir>local/var/data/mb</datadir> | |
| <charset>utf-8</charset> | |
| <commandpipe>local/var/run/mb-cmd</commandpipe> | |
| <extension findlib-package="ocsigenserver.ext.staticmod"/> |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| def_type | |
| ~doc: "event res" | |
| "event_res" (public (variant ([constr "Nok" | |
| Guard.(field root "error" <> undefined) | |
| ~doc:"event does not exist" | |
| [ (abbrv "error")]; | |
| constr "Ok" | |
| Guard.tt | |
| ~doc: "event successfully obtained" | |
| [(abbrv "correct_event_res")]]))); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| let create_form = | |
| (fun (url_name, location_name) -> | |
| let location_input = string_input ~input_type:`Text ~name:location_name () in | |
| [p [string_input ~input_type:`Text ~name:url_name ~a:[a_onchange {{ | |
| (fun _ -> | |
| let location = Html5.To_dom.of_element %location_input in | |
| (Js.Unsafe.coerce location)##value <- "tome val"; | |
| Firebug.console##log("I was here"); | |
| ) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {shared{ | |
| type insert_params = (string * string) deriving (Json) | |
| }} | |
| let insert_url_service_json = | |
| Eliom_registration.Html5.register_service | |
| ~path:["posttest"] | |
| ~get_params:(ocaml "param" Json.t<insert_params>) | |
| (fun (url, location) () -> | |
| insert url location >>= fun () -> |