pkgs/profpatsch/dhallsh/OptionPrinter/newStyle.dhall


1
2
3
4
5
6
7
8

let Option = ../Option/type.dhall

let newStyle
	: Option → Text
	=   λ(o : Option)
	  → merge { Long = λ(t : Text) → "--${t}", Short = λ(t : Text) → "-${t}" } o

in  newStyle