diff options
Diffstat (limited to 'test/lhs-test.html')
| -rw-r--r-- | test/lhs-test.html | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/test/lhs-test.html b/test/lhs-test.html index 4beede1b3..636e7ee1e 100644 --- a/test/lhs-test.html +++ b/test/lhs-test.html @@ -12,17 +12,17 @@ div.column{display: inline-block; vertical-align: top; width: 50%;} </style> <style type="text/css"> -div.sourceLine, a.sourceLine { display: inline-block; min-height: 1.25em; } +a.sourceLine { display: inline-block; min-height: 1.25em; } a.sourceLine { pointer-events: none; color: inherit; text-decoration: inherit; } .sourceCode { overflow: visible; } code.sourceCode { white-space: pre; } @media print { code.sourceCode { white-space: pre-wrap; } -div.sourceLine, a.sourceLine { text-indent: -1em; padding-left: 1em; } +a.sourceLine { text-indent: -1em; padding-left: 1em; } } -pre.numberSource div.sourceLine, .numberSource a.sourceLine +pre.numberSource a.sourceLine { position: relative; } -pre.numberSource div.sourceLine::before, .numberSource a.sourceLine::before +pre.numberSource a.sourceLine::before { content: attr(data-line-number); position: absolute; left: -5em; text-align: right; vertical-align: baseline; border: none; pointer-events: all; @@ -72,9 +72,9 @@ code span.in { color: #60a0b0; font-weight: bold; font-style: italic; } /* Infor <h1 id="lhs-test">lhs test</h1> <p><code>unsplit</code> is an arrow that takes a pair of values and combines them to return a single value:</p> -<pre class="sourceCode literate haskell" id="cb1"><code class="sourceCode haskell"><div class="sourceLine" id="cb1-1" data-line-number="1"><span class="ot">unsplit ::</span> (<span class="dt">Arrow</span> a) <span class="ot">=></span> (b <span class="ot">-></span> c <span class="ot">-></span> d) <span class="ot">-></span> a (b, c) d</div> -<div class="sourceLine" id="cb1-2" data-line-number="2">unsplit <span class="fu">=</span> arr <span class="fu">.</span> uncurry</div> -<div class="sourceLine" id="cb1-3" data-line-number="3"> <span class="co">-- arr (\op (x,y) -> x `op` y)</span></div></code></pre> +<pre class="sourceCode literate haskell" id="cb1"><code class="sourceCode haskell"><a class="sourceLine" id="cb1-1" data-line-number="1"><span class="ot">unsplit ::</span> (<span class="dt">Arrow</span> a) <span class="ot">=></span> (b <span class="ot">-></span> c <span class="ot">-></span> d) <span class="ot">-></span> a (b, c) d</a> +<a class="sourceLine" id="cb1-2" data-line-number="2">unsplit <span class="fu">=</span> arr <span class="fu">.</span> uncurry</a> +<a class="sourceLine" id="cb1-3" data-line-number="3"> <span class="co">-- arr (\op (x,y) -> x `op` y)</span></a></code></pre> <p><code>(***)</code> combines two arrows into a new arrow by running the two arrows on a pair of values (one arrow on the first item of the pair and one arrow on the second item of the pair).</p> |