pveber

Mise à jour du canal « guix » depuis le dépôt Git « https://git.savannah.gnu.org/git/guix.git »...
substitute: /gnu/store/q19l04vd2za80mk1845pz7r8cz29qk43-bash-minimal-4.4.23/bin/bash: warning: setlocale: LC_ALL: cannot change locale (en_US.utf8)
substitute: /gnu/store/q19l04vd2za80mk1845pz7r8cz29qk43-bash-minimal-4.4.23/bin/bash: warning: setlocale: LC_ALL: cannot change locale (en_US.utf8)
Computing Guix derivation for 'x86_64-linux'... \substitute: /gnu/store/q19l04vd2za80mk1845pz7r8cz29qk43-bash-minimal-4.4.23/bin/bash: warning: setlocale: LC_ALL: cannot change locale (en_US.utf8)
substitute: /gnu/store/q19l04vd2za80mk1845pz7r8cz29qk43-bash-minimal-4.4.23/bin/bash: warning: setlocale: LC_ALL: cannot change locale (en_US.utf8)
|
Les dérivations suivantes seront compilées :
   /gnu/store/4hn1rdm43qv8r0h8apa5cls8k7fnl7w3-guix-65956ad35.drv
   /gnu/store/vlgh0nap4psmsldsp7hi9jsyphmim1yb-profile.drv
   /gnu/store/zwj45h5qbvj4wa3b3mcnlb92915br6af-inferior-script.scm.drv

pveber

B _build/default
FLG -ppx '/home/pveber/tmp/delme/_build/default/.ppx/ppx_sexp_conv/ppx.exe --as-ppx --cookie '\''library-name="delme"'\'''
FLG -w -40
PKG base
PKG base.caml
PKG base.shadow_stdlib
PKG bigarray
PKG sexplib
PKG sexplib.0
PKG unix

pveber

open Async.Std

let t fn () =
  Reader.open_file fn
  >>| Reader.lines
  >>= Pipe.fold ~init:0 ~f:(fun n _ -> return (n + 1))
  >>= fun n -> return (Print.printf "%d\n" n)

let app = Command.(async Spec.(step (fun t fn -> t fn) +> (anon ("fn" %: string)))) ~summary:"bench" t

pveber

let () =
  let n = ref 0 in
  let ic = open_in Sys.argv.(1) in
  (try
     while true; do
       ignore (input_line ic);
       incr n
     done;
     assert false
   with End_of_file -> ()

pveber

{shared{
open Printf
open Eliom_content
open Eliom_content.Html5.F
open Eliom_parameter

}}

(*
(* uncomment this to fix the issue *)

pveber

{shared{
open Printf
open Eliom_content
open Eliom_content.Html5.F
open Eliom_parameter

}}

{client{
let file_of_input_element elt =

pveber

{shared{
  open Eliom_lib
  open Eliom_content
}}

module Bug_entity_app =
  Eliom_registration.App (
    struct
      let application_name = "bug_entity"
    end)