Rewrite Haskell recipe

ccmywish · ccmywish · commit fcdcbf058a72 · 2025-07-15T00:00:17.000+08:00
diff --git a/src/recipe/lang/Haskell.c b/src/recipe/lang/Haskell.c
@@ -7,6 +7,8 @@
  * Last Modified : <2025-07-14>
  * ------------------------------------------------------------*/
 
+#include "rawstr4c.h"
+
 /**
  * @update 2023-09-10
  */
@@ -16,11 +18,16 @@ static Source_t pl_haskell_sources[] =
   {&Tuna,             "https://mirrors.tuna.tsinghua.edu.cn/hackage", DelegateToMirror},
   {&Bfsu,             "https://mirrors.bfsu.edu.cn/hackage",          DelegateToMirror},
   {&Nju,              "https://mirror.nju.edu.cn/hackage",             DelegateToMirror},
-  {&Ustc,             "https://mirrors.ustc.edu.cn/hackage",          DelegateToMirror}
+  {&Ustc,             "https://mirrors.ustc.edu.cn/hackage",          DelegateToMirror},
+  {&Iscas,            "https://mirror.iscas.ac.cn/hackage",           DelegateToMirror},
+  {&Nyist,            "https://mirror.nyist.edu.cn/hackage",          DelegateToMirror}
 };
 def_sources_n(pl_haskell);
 
 
+/**
+ * @consult https://help.mirrors.cernet.edu.cn/hackage/
+ */
 void
 pl_haskell_setsrc (char *option)
 {
@@ -44,24 +51,9 @@ pl_haskell_setsrc (char *option)
   println (file); br();
 
   config = xy_normalize_path ("~/.stack/config.yaml");
-  file = xy_strjoin (3, "package-indices:\n"
-                       "  - download-prefix: ", source.url,
-                     "\n    hackage-security:\n"
-                       "        keyids:\n"
-                       "        - 0a5c7ea47cd1b15f01f5f51a33adda7e655bc0f0b0615baa8e271f4c3351e21d\n"
-                       "        - 1ea9ba32c526d1cc91ab5e5bd364ec5e9e8cb67179a471872f6e26f0ae773d42\n"
-                       "        - 280b10153a522681163658cb49f632cde3f38d768b736ddbc901d99a1a772833\n"
-                       "        - 2a96b1889dc221c17296fcc2bb34b908ca9734376f0f361660200935916ef201\n"
-                       "        - 2c6c3627bd6c982990239487f1abd02e08a02e6cf16edb105a8012d444d870c3\n"
-                       "        - 51f0161b906011b52c6613376b1ae937670da69322113a246a09f807c62f6921\n"
-                       "        - 772e9f4c7db33d251d5c6e357199c819e569d130857dc225549b40845ff0890d\n"
-                       "        - aa315286e6ad281ad61182235533c41e806e5a787e0b6d1e7eef3f09d137d2e9\n"
-                       "        - fe331502606802feac15e514d9b9ea83fee8b6ffef71335479a2e68d84adc6b0\n"
-                       "        key-threshold: 3\n"
-                       "        ignore-expiry: no");
-
+  file = xy_str_gsub (RAWSTR_pl_stackage, "@url@", source.url);
   chsrc_note2 (xy_strjoin (3, "请向 ", config, " 中手动添加:"));
-  p(file);
+  p (file);
 
   chsrc_determine_chgtype (ChgType_Manual);
   chsrc_conclude (&source);
diff --git a/src/recipe/lang/rawstr4c.h b/src/recipe/lang/rawstr4c.h
@@ -3,9 +3,11 @@
 /**
  * Generated by rawstr4c v0.1.0.2-2025/07/14
  *
- * Date: 2025-07-14T23:22:27.033387+08:00
+ * Date: 2025-07-14T23:55:13.381990+08:00
  */
 
+char RAWSTR_pl_stackage[] = "\160\141\143\153\141\147\145\055\151\156\144\145\170\072\012\040\040\144\157\167\156\154\157\141\144\055\160\162\145\146\151\170\072\040\100\165\162\154\100\012\040\040\150\141\143\153\141\147\145\055\163\145\143\165\162\151\164\171\072\012\040\040\040\040\153\145\171\151\144\163\072\012\040\040\040\040\040\040\055\040\060\141\065\143\067\145\141\064\067\143\144\061\142\061\065\146\060\061\146\065\146\065\061\141\063\063\141\144\144\141\067\145\066\065\065\142\143\060\146\060\142\060\066\061\065\142\141\141\070\145\062\067\061\146\064\143\063\063\065\061\145\062\061\144\012\040\040\040\040\040\040\055\040\061\145\141\071\142\141\063\062\143\065\062\066\144\061\143\143\071\061\141\142\065\145\065\142\144\063\066\064\145\143\065\145\071\145\070\143\142\066\067\061\067\071\141\064\067\061\070\067\062\146\066\145\062\066\146\060\141\145\067\067\063\144\064\062\012\040\040\040\040\040\040\055\040\062\070\060\142\061\060\061\065\063\141\065\062\062\066\070\061\061\066\063\066\065\070\143\142\064\071\146\066\063\062\143\144\145\063\146\063\070\144\067\066\070\142\067\063\066\144\144\142\143\071\060\061\144\071\071\141\061\141\067\067\062\070\063\063\012\040\040\040\040\040\040\055\040\062\141\071\066\142\061\070\070\071\144\143\062\062\061\143\061\067\062\071\066\146\143\143\062\142\142\063\064\142\071\060\070\143\141\071\067\063\064\063\067\066\146\060\146\063\066\061\066\066\060\062\060\060\071\063\065\071\061\066\145\146\062\060\061\012\040\040\040\040\040\040\055\040\062\143\066\143\063\066\062\067\142\144\066\143\071\070\062\071\071\060\062\063\071\064\070\067\146\061\141\142\144\060\062\145\060\070\141\060\062\145\066\143\146\061\066\145\144\142\061\060\065\141\070\060\061\062\144\064\064\064\144\070\067\060\143\063\012\040\040\040\040\040\040\055\040\065\061\146\060\061\066\061\142\071\060\066\060\061\061\142\065\062\143\066\066\061\063\063\067\066\142\061\141\145\071\063\067\066\067\060\144\141\066\071\063\062\062\061\061\063\141\062\064\066\141\060\071\146\070\060\067\143\066\062\146\066\071\062\061\012\040\040\040\040\040\040\055\040\067\067\062\145\071\146\064\143\067\144\142\063\063\144\062\065\061\144\065\143\066\145\063\065\067\061\071\071\143\070\061\071\145\065\066\071\144\061\063\060\070\065\067\144\143\062\062\065\065\064\071\142\064\060\070\064\065\146\146\060\070\071\060\144\012\040\040\040\040\040\040\055\040\141\141\063\061\065\062\070\066\145\066\141\144\062\070\061\141\144\066\061\061\070\062\062\063\065\065\063\063\143\064\061\145\070\060\066\145\065\141\067\070\067\145\060\142\066\144\061\145\067\145\145\146\063\146\060\071\144\061\063\067\144\062\145\071\012\040\040\040\040\040\040\055\040\146\145\063\063\061\065\060\062\066\060\066\070\060\062\146\145\141\143\061\065\145\065\061\064\144\071\142\071\145\141\070\063\146\145\145\070\142\066\146\146\145\146\067\061\063\063\065\064\067\071\141\062\145\066\070\144\070\064\141\144\143\066\142\060\012\040\040\040\040\153\145\171\055\164\150\162\145\163\150\157\154\144\072\040\063\040\043\040\156\165\155\142\145\162\040\157\146\040\153\145\171\163\040\162\145\161\165\151\162\145\144\012\040\040\040\040\043\040\151\147\156\157\162\145\040\145\170\160\151\162\141\164\151\157\156\040\144\141\164\145\054\040\163\145\145\040\150\164\164\160\163\072\057\057\147\151\164\150\165\142\056\143\157\155\057\143\157\155\155\145\162\143\151\141\154\150\141\163\153\145\154\154\057\163\164\141\143\153\057\160\165\154\154\057\064\066\061\064\012\040\040\040\040\151\147\156\157\162\145\055\145\170\160\151\162\171\072\040\156\157\012";
+
 char RAWSTR_pl_project_clj[] = "\050\144\145\146\160\162\157\152\145\143\164\040\155\171\141\160\160\040\042\061\056\060\056\060\042\012\040\040\040\072\144\145\163\143\162\151\160\164\151\157\156\040\042\115\171\040\101\160\160\154\151\143\141\164\151\157\156\042\012\040\040\040\072\144\145\160\145\156\144\145\156\143\151\145\163\040\133\133\154\151\142\061\040\042\061\056\060\056\060\042\135\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\133\154\151\142\062\040\042\062\056\060\056\060\042\135\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\133\154\151\142\063\040\042\063\056\060\056\060\042\135\135\012\040\040\040\072\155\151\162\162\157\162\163\040\173\042\143\154\157\152\141\162\163\042\040\173\072\156\141\155\145\040\042\155\151\162\162\157\162\042\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\072\165\162\154\040\042\100\165\162\154\100\042\175\175\012\040\040\040\072\155\141\151\156\040\154\145\151\156\151\156\147\145\156\056\167\145\142\051\012";
 
 char RAWSTR_pl_projfiles_clj[] = "\072\165\163\145\162\040\173\072\162\145\160\157\163\151\164\157\162\151\145\163\040\133\133\042\143\154\157\152\141\162\163\042\040\173\072\165\162\154\040\042\100\165\162\154\100\042\175\135\135\012\040\040\040\040\040\040\040\073\073\040\157\164\150\145\162\040\072\165\163\145\162\040\160\162\157\146\151\154\145\040\163\145\164\164\151\156\147\163\012\040\040\040\040\040\040\175\012";
diff --git a/src/recipe/lang/rawstr4c.md b/src/recipe/lang/rawstr4c.md
@@ -14,6 +14,29 @@
 - output = `:global-variable-only-header`
 - translate = `:oct`
 
+## stackage
+
+```yaml
+package-index:
+  download-prefix: @url@
+  hackage-security:
+    keyids:
+      - 0a5c7ea47cd1b15f01f5f51a33adda7e655bc0f0b0615baa8e271f4c3351e21d
+      - 1ea9ba32c526d1cc91ab5e5bd364ec5e9e8cb67179a471872f6e26f0ae773d42
+      - 280b10153a522681163658cb49f632cde3f38d768b736ddbc901d99a1a772833
+      - 2a96b1889dc221c17296fcc2bb34b908ca9734376f0f361660200935916ef201
+      - 2c6c3627bd6c982990239487f1abd02e08a02e6cf16edb105a8012d444d870c3
+      - 51f0161b906011b52c6613376b1ae937670da69322113a246a09f807c62f6921
+      - 772e9f4c7db33d251d5c6e357199c819e569d130857dc225549b40845ff0890d
+      - aa315286e6ad281ad61182235533c41e806e5a787e0b6d1e7eef3f09d137d2e9
+      - fe331502606802feac15e514d9b9ea83fee8b6ffef71335479a2e68d84adc6b0
+    key-threshold: 3 # number of keys required
+    # ignore expiration date, see https://github.com/commercialhaskell/stack/pull/4614
+    ignore-expiry: no
+```
+
+
+
 ## Clojar
 
 ### project.clj
