Merge pull request #115 from chrisdone/cd/2026-04-19

2026-04-19 release

Author: chrisdone-artificial

DIST

@@ -0,0 +1,9 @@
+Generate bindist:
+
+arm64
+
+    hell scripts/static-build.hell --stack-arch aarch64-linux --filename hell-linux-arm64 --ghc-version ghc-9.8.2 --docker-container hell
+
+amd64
+
+    hell scripts/static-build.hell --stack-arch x86_64-linux --filename hell-linux-amd64 --ghc-version ghc-9.8.2 --docker-container hell-amd64

docs/api/index.html

@@ -162,12 +162,16 @@ <h2>15-type-classes.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>  Text.putStrLn (<span class="dt">Show</span><span class="op">.</span><span class="fu">show</span> <span class="dv">123</span>)</span>
 <span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a>  Text.putStrLn (<span class="dt">Show</span><span class="op">.</span><span class="fu">show</span> <span class="dt">Bool</span><span class="op">.</span><span class="dt">True</span>)</span>
-<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a>  env <span class="ot">&lt;-</span> Environment.getEnvironment</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="fu">maybe</span></span>
-<span id="cb1-7"><a href="#cb1-7" aria-hidden="true" tabindex="-1"></a>    (Text.putStrLn <span class="st">&quot;Seems the environment variable is not there.&quot;</span>)</span>
-<span id="cb1-8"><a href="#cb1-8" aria-hidden="true" tabindex="-1"></a>    (\path <span class="ot">-&gt;</span> Text.putStrLn (Text.concat [<span class="st">&quot;HOME is &quot;</span>, path]))</span>
-<span id="cb1-9"><a href="#cb1-9" aria-hidden="true" tabindex="-1"></a>    (List.lookup <span class="st">&quot;HOME&quot;</span> env)</span></code></pre></div>
+<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a>  Text.putStrLn <span class="op">$</span> <span class="dt">Show</span><span class="op">.</span><span class="fu">show</span> <span class="op">$</span> <span class="dt">Eq</span><span class="op">.</span>eq <span class="dv">1</span> <span class="dv">1</span></span>
+<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a>  Text.putStrLn <span class="op">$</span> <span class="dt">Show</span><span class="op">.</span><span class="fu">show</span> <span class="op">$</span> <span class="dt">Eq</span><span class="op">.</span>eq [<span class="dt">Maybe</span><span class="op">.</span><span class="dt">Just</span> <span class="dv">1</span>] [<span class="dt">Maybe</span><span class="op">.</span><span class="dt">Just</span> <span class="dv">2</span>]</span>
+<span id="cb1-6"><a href="#cb1-6" aria-hidden="true" tabindex="-1"></a>  <span class="dt">IO</span><span class="op">.</span><span class="fu">print</span> [<span class="dt">Maybe</span><span class="op">.</span><span class="dt">Just</span> <span class="dv">1</span>, <span class="dt">Maybe</span><span class="op">.</span><span class="dt">Nothing</span>]</span>
+<span id="cb1-7"><a href="#cb1-7" aria-hidden="true" tabindex="-1"></a>  <span class="dt">IO</span><span class="op">.</span><span class="fu">print</span> <span class="op">$</span> <span class="dt">Maybe</span><span class="op">.</span><span class="dt">Just</span> [<span class="dv">1</span>] <span class="op">&lt;&gt;</span> <span class="dt">Maybe</span><span class="op">.</span><span class="dt">Nothing</span></span>
+<span id="cb1-8"><a href="#cb1-8" aria-hidden="true" tabindex="-1"></a></span>
+<span id="cb1-9"><a href="#cb1-9" aria-hidden="true" tabindex="-1"></a>  env <span class="ot">&lt;-</span> Environment.getEnvironment</span>
+<span id="cb1-10"><a href="#cb1-10" aria-hidden="true" tabindex="-1"></a>  <span class="dt">Maybe</span><span class="op">.</span><span class="fu">maybe</span></span>
+<span id="cb1-11"><a href="#cb1-11" aria-hidden="true" tabindex="-1"></a>    (Text.putStrLn <span class="st">&quot;Seems the environment variable is not there.&quot;</span>)</span>
+<span id="cb1-12"><a href="#cb1-12" aria-hidden="true" tabindex="-1"></a>    (\path <span class="ot">-&gt;</span> Text.putStrLn (Text.concat [<span class="st">&quot;HOME is &quot;</span>, path]))</span>
+<span id="cb1-13"><a href="#cb1-13" aria-hidden="true" tabindex="-1"></a>    (List.lookup <span class="st">&quot;HOME&quot;</span> env)</span></code></pre></div>
 <h2>16-if.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>  <span class="kw">if</span> List.and [<span class="dt">Eq</span><span class="op">.</span>eq (<span class="dt">Int</span><span class="op">.</span>plus <span class="dv">1</span> <span class="dv">1</span>) <span class="dv">2</span>,</span>

docs/examples/index.html

@@ -11,6 +11,7 @@ author:         Chris Done
 maintainer:     Chris Done
 copyright:      2023 Chris Done
 license:        BSD3
+license-file:   LICENSE
 build-type:     Simple
 
 executable hell

hell.cabal

@@ -1,7 +1,27 @@
+data Opts = Opts {
+  arch :: Text,
+  filename :: Text,
+  ghc :: Text,
+  container :: Text
+ }
+options =
+  (\arch filename ghc container -> Main.Opts { arch, filename, ghc, container })
+       <$> Options.strOption (Option.long "stack-arch" <> Option.help "x86_64-linux or aarch64-linux")
+       <*> Options.strOption (Option.long "filename" <> Option.help "e.g. hell-linux-amd64 or hell-linux-arm64")
+       <*> Options.strOption (Option.long "ghc-version" <> Option.help "e.g. ghc-9.8.2")
+       <*> Options.strOption (Option.long "docker-container" <> Option.help "e.g. hell or hell-amd64")
+
 main = do
-  Process.runProcess_ (Process.proc "docker" ["exec", "hell", "stack", "build","--ghc-options", "-static -optl-static -fforce-recomp", "--force-dirty"])
-  Directory.copyFile ".stack-work/dist/x86_64-linux/ghc-9.8.2/build/hell/hell" "hell-linux-x86-64bit"
-  Process.runProcess_ (Process.proc "strip" ["hell-linux-x86-64bit"])
+  opts <- Options.execParser (Options.info (Main.options <**> Options.helper) Options.fullDesc)
+  let arch = Record.get @"arch" opts
+  let filename = Record.get @"filename" opts
+  let ghc = Record.get @"ghc" opts
+  let container = Record.get @"container" opts
+  let distPath = ".stack-work/dist/" <> arch <> "/" <> ghc <> "/build/hell/"
+
+  Process.runProcess_ (Process.proc "docker" ["exec", container, "stack", "build","--ghc-options", "-static -optl-static -fforce-recomp", "--force-dirty"])
+  Directory.copyFile (distPath <> "/hell") filename
+  Process.runProcess_ (Process.proc "docker" ["exec", container, "strip", filename])
   pwd <- Directory.getCurrentDirectory
   env <- Environment.getEnvironment
   path <- Environment.getEnv "PATH"
@@ -11,8 +31,7 @@ main = do
         ("PATH",
           Text.concat
             [pwd,
-             "/.stack-work/dist/x86_64-linux/ghc-9.8.2/build/hell/",
-             ":",
+             "/" <> distPath, ":",
              path])
         env) $
     Process.proc "hell" ["scripts/check.hell"]

scripts/static-build.hell

@@ -164,7 +164,7 @@ commandParser =
 
 -- | Version of Hell.
 hellVersion :: Text
-hellVersion = "2025-11-11"
+hellVersion = "2026-04-19"
 
 -- | Dispatch on the command.
 dispatch :: Command -> IO ()