Merge pull request #125 from chrisdone/cd/2026-04-28-update-docs

Update docs

Author: chrisdone-artificial

docs/api/index.html

@@ -774,4 +774,27 @@ <h2>42-primcase.hell</h2><div class="sourceCode" id="cb1"><pre
 <span id="cb1-54"><a href="#cb1-54" aria-hidden="true" tabindex="-1"></a>  bool <span class="op">$</span> <span class="dt">Json.Null</span></span>
 <span id="cb1-55"><a href="#cb1-55" aria-hidden="true" tabindex="-1"></a>  bool <span class="op">$</span> <span class="dt">Json.Number</span> <span class="fl">123.0</span></span>
 <span id="cb1-56"><a href="#cb1-56" aria-hidden="true" tabindex="-1"></a>  bool <span class="op">$</span> <span class="dt">Json.Bool</span> <span class="dt">Bool</span><span class="op">.</span><span class="dt">True</span></span></code></pre></div>
+<h2>43-http.hell</h2><div class="sourceCode" id="cb1"><pre
+class="sourceCode haskell"><code class="sourceCode haskell"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a>main <span class="ot">=</span> <span class="kw">do</span></span>
+<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a>  Http.run <span class="dv">8080</span> \request respond <span class="ot">-&gt;</span></span>
+<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a>    <span class="kw">if</span> <span class="dt">Eq</span><span class="op">.</span>eq (Http.pathInfo request) []</span>
+<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a>      <span class="kw">then</span></span>
+<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a>        <span class="kw">case</span> List.lookup (CI.mk <span class="op">$</span> Text.encodeUtf8 <span class="st">&quot;Content-Type&quot;</span>) (Http.requestHeaders request) <span class="kw">of</span></span>
+<span id="cb1-6"><a href="#cb1-6" aria-hidden="true" tabindex="-1"></a>          <span class="dt">Maybe</span><span class="op">.</span><span class="dt">Just</span> _x <span class="ot">-&gt;</span></span>
+<span id="cb1-7"><a href="#cb1-7" aria-hidden="true" tabindex="-1"></a>            respond <span class="op">$</span> Http.responseBuilder (Http.mkStatus <span class="dv">200</span> <span class="st">&quot;OK&quot;</span>) [] <span class="op">$</span></span>
+<span id="cb1-8"><a href="#cb1-8" aria-hidden="true" tabindex="-1"></a>               Builder.byteString <span class="op">$</span> Text.encodeUtf8 <span class="st">&quot;Hello, World!&quot;</span></span>
+<span id="cb1-9"><a href="#cb1-9" aria-hidden="true" tabindex="-1"></a>          <span class="dt">Maybe</span><span class="op">.</span><span class="dt">Nothing</span> <span class="ot">-&gt;</span></span>
+<span id="cb1-10"><a href="#cb1-10" aria-hidden="true" tabindex="-1"></a>             respond <span class="op">$</span> Http.responseBuilder (Http.mkStatus <span class="dv">500</span> <span class="st">&quot;Error&quot;</span>) [] <span class="op">$</span></span>
+<span id="cb1-11"><a href="#cb1-11" aria-hidden="true" tabindex="-1"></a>               (Builder.byteString <span class="op">$</span> Text.encodeUtf8 <span class="st">&quot;Wobble&quot;</span>) <span class="op">&lt;&gt;</span></span>
+<span id="cb1-12"><a href="#cb1-12" aria-hidden="true" tabindex="-1"></a>               (Builder.byteString <span class="op">$</span> Text.encodeUtf8 <span class="st">&quot;Wobble&quot;</span>)</span>
+<span id="cb1-13"><a href="#cb1-13" aria-hidden="true" tabindex="-1"></a>      <span class="kw">else</span></span>
+<span id="cb1-14"><a href="#cb1-14" aria-hidden="true" tabindex="-1"></a>        respond <span class="op">$</span></span>
+<span id="cb1-15"><a href="#cb1-15" aria-hidden="true" tabindex="-1"></a>          Http.responseFile (Http.mkStatus <span class="dv">400</span> <span class="st">&quot;Not Found&quot;</span>)</span>
+<span id="cb1-16"><a href="#cb1-16" aria-hidden="true" tabindex="-1"></a>            [(CI.mk (Text.encodeUtf8 <span class="st">&quot;Content-Type&quot;</span>), Text.encodeUtf8 <span class="st">&quot;text/markdown&quot;</span>)]</span>
+<span id="cb1-17"><a href="#cb1-17" aria-hidden="true" tabindex="-1"></a>            <span class="st">&quot;docs/readme.md&quot;</span></span>
+<span id="cb1-18"><a href="#cb1-18" aria-hidden="true" tabindex="-1"></a>            <span class="dt">Maybe</span><span class="op">.</span><span class="dt">Nothing</span></span></code></pre></div>
+<h2>44-char.hell</h2><div class="sourceCode" id="cb1"><pre
+class="sourceCode haskell"><code class="sourceCode haskell"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a>main <span class="ot">=</span> <span class="kw">do</span></span>
+<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a>  line <span class="ot">&lt;-</span> Text.getLine</span>
+<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a>  <span class="dt">IO</span><span class="op">.</span><span class="fu">print</span> <span class="op">$</span> Text.all (<span class="dt">Eq</span><span class="op">.</span>eq <span class="ch">&#39;x&#39;</span>) line</span></code></pre></div>
 </html>

docs/examples/index.html

@@ -37,6 +37,7 @@
             haskell-language-server
             fourmolu
             hlint
+            pkgs.pandoc
             pkgs.zlib
           ];
         };

flake.nix

@@ -3,7 +3,7 @@ main = do
   let script = Text.unlines [":l src/Hell.hs", "_generateApiDocs", ":quit"]
   _out <- ByteString.readProcess_
     (Text.setStdin script
-      (Process.proc "stack" ["ghci","--no-load"]))
+      (Process.proc "cabal" ["repl"]))
   examples <- Directory.listDirectory "examples/"
   let render = \fp -> do
         Text.putStrLn $ Text.concat ["Rendering ", fp]