|
|
|
|
|
|
by wizzwizz4
707 days ago
|
|
|
Here's a collage of some of my favourite bits. (I've inlined some functions, but this is nearly as readable as the actual code.) open Option Parse Scan;
(maybe embedded --| minus -- name >> (fn arg => ((if ! testing then #2 arg |> Output.writeln else (); #1 #> curry getOpt) arg (implode [])))) -- command_name "supply" >> (op ^)
What does this say? |
|
|