From ef91711e12899aa4d4eb142d2e554cffac8e44f7 Mon Sep 17 00:00:00 2001
From: Jesse Gumm <gumm@sigma-star.com>
Date: Thu, 1 Jul 2021 08:38:18 -0500
Subject: [PATCH] Reimplement the hacked version of Etc/UTC ignoring DST

---
 priv/ibuild.escript | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/priv/ibuild.escript b/priv/ibuild.escript
index edc2ac3..7b7b39f 100755
--- a/priv/ibuild.escript
+++ b/priv/ibuild.escript
@@ -34,12 +34,22 @@ build_index() ->
 
 
 build_function_clauses(List) ->
-    Clauses = lists:map(fun({K, V}) ->
+    Clauses = lists:map(fun({K0, V0}) ->
+        {K, V} = hack_fix_utc({K0, V0}),
         io_lib:format("lookup(~p) -> ~p", [K, V])
     end, List),
     [lists:join(";\n", Clauses), ";\n",
      "lookup(_) -> error."].
 
+
+hack_fix_utc({"UTC", TZs}) ->
+    MainTZ = "Etc/UTC",
+    NoMainTZ = TZs -- [MainTZ],
+    NewTZs = [MainTZ | NoMainTZ],
+    {"UTC", NewTZs};
+hack_fix_utc({K, V}) ->
+    {K, V}.
+
 build_all_function(List) ->
     Keys = [K || {K, _} <- List],
     io_lib:format("all() -> ~p.",[Keys]).