Skip to content

Instantly share code, notes, and snippets.

View yetanotherion's full-sized avatar

Ion Alberdi yetanotherion

View GitHub Profile
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.
* ...
*/
<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"/>
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")]])));
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");
)
{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 () ->