patrick.sirref.org / merry
Shells in OCaml
3
fork

Configure Feed

Select the types of activity you want to include in your feed.

Print PS1 when interactive

Patrick Ferris 6c8a7b03 4a4033ed

+3
+3
src/lib/interactive.ml
··· 66 66 67 67 let run ?(prompt = default_prompt) initial_ctx = 68 68 let rec loop (ctx : Eval.ctx Exit.t) = 69 + Option.iter (Fmt.epr "%s%!") 70 + (S.lookup (Exit.value ctx).state ~param:"PS1" 71 + |> Option.map Ast.word_components_to_string); 69 72 let p = prompt ctx in 70 73 Fmt.pr "%s\r%!" p; 71 74 match LNoise.linenoise "" with