git.iko.soy/typeable/pandoc
on 2.2.2 help sign in
typeable/pandoc/test/lhs-test.latex+lhs
88 lines 2.5 kB history raw
1\PassOptionsToPackage{unicode=true}{hyperref} % options for packages loaded elsewhere
2\PassOptionsToPackage{hyphens}{url}
3%
4\documentclass[]{article}
5\usepackage{lmodern}
6\usepackage{amssymb,amsmath}
7\usepackage{ifxetex,ifluatex}
8\usepackage{fixltx2e} % provides \textsubscript
9\ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex
10 \usepackage[T1]{fontenc}
11 \usepackage[utf8]{inputenc}
12 \usepackage{textcomp} % provides euro and other symbols
13\else % if luatex or xelatex
14 \usepackage{unicode-math}
15 \defaultfontfeatures{Ligatures=TeX,Scale=MatchLowercase}
16\fi
17% use upquote if available, for straight quotes in verbatim environments
18\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
19% use microtype if available
20\IfFileExists{microtype.sty}{%
21\usepackage[]{microtype}
22\UseMicrotypeSet[protrusion]{basicmath} % disable protrusion for tt fonts
23}{}
24\IfFileExists{parskip.sty}{%
25\usepackage{parskip}
26}{% else
27\setlength{\parindent}{0pt}
28\setlength{\parskip}{6pt plus 2pt minus 1pt}
30\usepackage{hyperref}
31\hypersetup{
32 pdfborder={0 0 0},
33 breaklinks=true}
34\urlstyle{same} % don't use monospace font for urls
35\usepackage{listings}
36\newcommand{\passthrough}[1]{#1}
37\lstnewenvironment{code}{\lstset{language=Haskell,basicstyle=\small\ttfamily}}{}
38\setlength{\emergencystretch}{3em} % prevent overfull lines
39\providecommand{\tightlist}{%
40 \setlength{\itemsep}{0pt}\setlength{\parskip}{0pt}}
41\setcounter{secnumdepth}{0}
42% Redefines (sub)paragraphs to behave more like sections
43\ifx\paragraph\undefined\else
44\let\oldparagraph\paragraph
45\renewcommand{\paragraph}[1]{\oldparagraph{#1}\mbox{}}
46\fi
47\ifx\subparagraph\undefined\else
48\let\oldsubparagraph\subparagraph
49\renewcommand{\subparagraph}[1]{\oldsubparagraph{#1}\mbox{}}
50\fi
52% set default figure placement to htbp
53\makeatletter
54\def\fps@figure{htbp}
55\makeatother
58\date{}
60\begin{document}
62\hypertarget{lhs-test}{%
63\section{lhs test}\label{lhs-test}}
65\texttt{unsplit} is an arrow that takes a pair of values and combines them to
66return a single value:
68\begin{code}
69unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
70unsplit = arr . uncurry
71 -- arr (\op (x,y) -> x `op` y)
72\end{code}
74\texttt{(***)} combines two arrows into a new arrow by running the two arrows on a
75pair of values (one arrow on the first item of the pair and one arrow on the
76second item of the pair).
78\begin{verbatim}
79f *** g = first f >>> second g
80\end{verbatim}
82Block quote:
84\begin{quote}
85foo bar
86\end{quote}
88\end{document}