lhs2tex-1.20: doc/FormatArrow.lhs

%include verbatim.fmt
\begingroup
\let\origtt=\ttfamily
\def\ttfamily#1#2{\origtt}

>%format ~> = "\leadsto "

\endgroup