Commits

camlspotter committed c1038c8

fixed Qx.command type

  • Participants
  • Parent commits d96d634

Comments (0)

Files changed (3)

-let command s k = Spotlib.Spot.Unix.Command.(shell s |> get_stdout |> k)
+let command s = Spotlib.Spot.Unix.Command.(shell s |> get_stdout)
-val command : string -> (Unix.process_status * string list -> 'a) -> 'a
+val command : string -> Unix.process_status * string list

File test/test_command.ml

 
 open Spotlib.Spot
 
-let _ = <:qx<ls .>> & fun (_, xs) -> prerr_string & String.concat "" xs
+let _ = <:qx<ls .>> |> fun (_, xs) -> prerr_string & String.concat "" xs
 ;;