git.iko.soy/typeable/pandoc
on rc/2.8.0.1 help sign in
typeable/pandoc/test/lhs-test.latex+lhs
82 lines 2.5 kB history raw
1% Options for packages loaded elsewhere
2\PassOptionsToPackage{unicode}{hyperref}
3\PassOptionsToPackage{hyphens}{url}
4%
5\documentclass[
6]{article}
7\usepackage{lmodern}
8\usepackage{amssymb,amsmath}
9\usepackage{ifxetex,ifluatex}
10\ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex
11 \usepackage[T1]{fontenc}
12 \usepackage[utf8]{inputenc}
13 \usepackage{textcomp} % provide euro and other symbols
14\else % if luatex or xetex
15 \usepackage{unicode-math}
16 \defaultfontfeatures{Scale=MatchLowercase}
17 \defaultfontfeatures[\rmfamily]{Ligatures=TeX,Scale=1}
18\fi
19% Use upquote if available, for straight quotes in verbatim environments
20\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
21\IfFileExists{microtype.sty}{% use microtype if available
22 \usepackage[]{microtype}
23 \UseMicrotypeSet[protrusion]{basicmath} % disable protrusion for tt fonts
24}{}
25\makeatletter
26\@ifundefined{KOMAClassName}{% if non-KOMA class
27 \IfFileExists{parskip.sty}{%
28 \usepackage{parskip}
29 }{% else
30 \setlength{\parindent}{0pt}
31 \setlength{\parskip}{6pt plus 2pt minus 1pt}}
32}{% if KOMA class
33 \KOMAoptions{parskip=half}}
34\makeatother
35\usepackage{xcolor}
36\IfFileExists{xurl.sty}{\usepackage{xurl}}{} % add URL line breaks if available
37\IfFileExists{bookmark.sty}{\usepackage{bookmark}}{\usepackage{hyperref}}
38\hypersetup{
39 hidelinks,
40 pdfcreator={LaTeX via pandoc}}
41\urlstyle{same} % disable monospaced font for URLs
42\usepackage{listings}
43\newcommand{\passthrough}[1]{#1}
44\lstset{defaultdialect=[5.3]Lua}
45\lstset{defaultdialect=[x86masm]Assembler}
46\lstnewenvironment{code}{\lstset{language=Haskell,basicstyle=\small\ttfamily}}{}
47\setlength{\emergencystretch}{3em} % prevent overfull lines
48\providecommand{\tightlist}{%
49 \setlength{\itemsep}{0pt}\setlength{\parskip}{0pt}}
50\setcounter{secnumdepth}{-\maxdimen} % remove section numbering
52\date{}
54\begin{document}
56\hypertarget{lhs-test}{%
57\section{lhs test}\label{lhs-test}}
59\texttt{unsplit} is an arrow that takes a pair of values and combines them to
60return a single value:
62\begin{code}
63unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
64unsplit = arr . uncurry
65 -- arr (\op (x,y) -> x `op` y)
66\end{code}
68\texttt{(***)} combines two arrows into a new arrow by running the two arrows on a
69pair of values (one arrow on the first item of the pair and one arrow on the
70second item of the pair).
72\begin{verbatim}
73f *** g = first f >>> second g
74\end{verbatim}
76Block quote:
78\begin{quote}
79foo bar
80\end{quote}
82\end{document}