添加tar 0.6支持

解决 #286这使用上游tar。它还支持更改解压缩文件的所有权（keter实现似乎也在管理这些文件）。这也删除了基于堆栈的ci，而不是基于cabal的ci。由于某种原因，它崩溃了，我不想玩堆栈重击。使用上游解包凹凸文件路径更多信息为M导入垃圾处理结果不要使用横移，而是使用折叠更新变更日志添加额外的deps清除堆栈添加基于阴谋集团的行动拖放窗口支持基于清除堆栈的ci添加更改为cabal ci的注释我只是不想知道为什么会这样。通气阀
斯诺伯格 · 2023年12月28日 · 20a33d9年 · 20a33d9年
diff --git a/.github/workflows/cabal.yaml b/.github/workflows/cabal.yaml
@@ -0,0 +1,37 @@
+在:[拉动请求]
+工作:
+  建造:
+
+    运行:${{matrix.os}}
+
+    策略:
+      故障-快速:假
+      矩阵:
+        温室气体:#应镜像当前的稳定释放：https://www.haskell.org/ghc/download.html
+-'9.8'
+-'9.6'
+-'9.4'
+-'9.2'
+        操作系统:[ubuntu-latest，macOS-latest]
+
+    台阶:
+-使用:行动/签出@v3
+-使用:haskell/动作/设置@v2#https://github.com/haskell/actions/tree/main/setup#haskellactionssetup
+      具有:
+        ghc版本:${{matrix.ghc}}
+
+-名称:Cabal缓存
+      使用:行动/缓存@v3
+      环境价值:
+        缓存名称:缓存卡
+      具有:
+        路径:~/.阴谋集团
+        钥匙:${{runner.os}}-build-${{env.cache-name}}-${hashFiles（'**/*.cabal'）}}-${hashFile（'**/cabal.project'）}
+        恢复密钥:|
+${{runner.os}}-构建-${{env.cache-name}}-
+-名称:Cabal更新
+      运行:阴谋集团更新
+-名称:使用阴谋集团构建
+      运行:阴谋集团建造一切
+-名称:测试
+      运行:阴谋集团测试全部
diff --git a/.github/workflows/stack.yaml b/.github/workflows/stack.yaml
diff --git a/更改日志.md b/更改日志.md
@@ -6,6 +6,8 @@
 意外翻转。公共关系#282
 *如果阅读以下任何一项`*-主机响应文件`失败，keter现在记录警告，
 并返回到内置默认值。在2.1.3之前，这是一个致命错误。
+*添加对tar 0.6的支持，去掉NIH tar解包。
++将CI更改为基于cabal而不是堆栈。
 
 ##2.1.2
 

diff --git a/凯特卡巴尔 b/凯特卡巴尔
@@ -1,6 +1,6 @@
 cabal版本:      3.0
 名称：基特
-版本:2.1、。2
+版本:2.1、。三
 简介:
 Web应用程序部署管理器，专注于Haskell Web框架。它减少了停机时间。
 
@@-44,7+44,7@@库
 集装箱>=0.6.4 && <0.7|| ^>=0.7,
 目录>=1.3.6 && <1.4,
 快速记录器>=3.0.0 && <4.0版本,
-文件路径>=1.4.2 && <15,
+文件路径>=1.4.2 && <16,
 fs通知>=0.3.0 && <0.5,
 http-客户端>=0.7.11 && <0.8,
 http-conduit公司>=2.3.8 && <2.4,
@@-60,7+60,7@@库
 随机的，随机的>=1.2.1 && <1.3,
 正则表达式tdfa>=1.3.1 && <1.4,
 stm公司>=2.5.0 && <2.6,
-焦油>=0.5.1 && <06,
+焦油>=0.5.1 && <07,
 template-haskell模板>=2.17.0 && <3,
 文本>=1.2.5 && <3,
 时间>=1.9.3 && <2,

diff --git a/src/Keter/TempTarball.hs b/src/Keter/TempTarball.hs
@@-15,7+15,7@@输入合格的编解码器。档案文件。焦油。检查为焦油
 进口 有资格的 编解码器。档案文件。焦油。条目   作为 焦油
 进口           编解码器。压缩。GZip公司(减压)
 进口           控制。例外(支架,括号打开错误,通过IO)
-进口           控制。莫纳德(除非,什么时候)
+进口           控制。莫纳德(除非,什么时候,对于M)
 进口 有资格的 数据。字节字符串.Lazy      作为 L（左）
 进口           数据。ByteString.不安全(未安全使用为CStringLen)
 进口 有资格的 数据。IORef（IORef）                作为 我
@@-67,51+67,13@@unpackTempTar:：可能（用户ID，组ID）
 unpackTempTar muid tf捆绑包appname with Dir= 做
 磅<- L。readFile（读取文件）捆
 bracketOnError（getFolder muid tf appname）D。删除目录递归$ \目录-> 做
-unpackTar muid目录$ 焦油。阅读 $减压lbs
+        D。创建目录如果缺少真的目录
+        让条目= 焦油。阅读 $减压lbs
+        焦油。解压缩目录条目
+_<-用于M muid$ \排列->
+          焦油。foldEntries（setEntryPermission权限权限）(纯净的 ())通过IO条目
 带目录目录
 
-拆包焦油 时间： 也许 吧(用户ID,组ID)
-          -> 文件路径
-          -> 焦油。条目 焦油。格式化错误
-          -> IO（输入输出） ()
-unpackTar muid目录=
-环. 焦油。检查安全性
-  哪里
-环焦油。多恩 = 返回 ()
-回路(焦油。失败e）= 任何一个通过IO通过IO e
-回路(焦油。下一步e e s）=去e>>环路es
-
-去e= 做
-        让英尺/平方英尺=目录</> 焦油。入口路径e
-        案例 焦油。入口内容e属于
-            焦油。NormalFile（法线文件）磅_-> 做
-                案例muid公司属于
-                    没有什么 -> D。创建目录如果缺少真的 $ F、。takeDirectory fp
-                    只是（uid，gid）->创建树uid uid gid$ F、。takeDirectory fp
-                让写入fd-bs=unsafeUseAsC字符串长度bs$ \（ptr，len）-> 做
-_<-fdWriteBuf fd（castPtr ptr）(来自Integral透镜）
-                        返回 ()
-支架
-(做
-fd公司<-创建文件fp$ 焦油。entryPermissions e（条目权限）
-setFd选项fd关闭OnExec 真的
-                        案例muid公司属于
-                            没有什么 -> 返回 ()
-                            只是（uid，gid）->setFd所有者和组fd uid gid
-                        返回fd）
-关闭Fd
-(\fd公司-> 地图M_（写入fd）(L。至块（lbs））
-_-> 返回 ()
-
--- |创建目录树，设置所有新创建的uid和gid
---文件夹。
-创建树UID 时间： 用户ID -> 组ID -> 文件路径 -> IO（输入输出） ()
-创建树uid uid gid=
-去
-  哪里
-去fp= 做
-存在<- D。doesDirectoryExist帧
-除非存在$ 做
-去$ F、。takeDirectory fp
-            D。创建目录如果缺少False（错误）英尺/平方英尺
-setOwnerAndGroup fp-uid gid
+setEntryPermission（设置条目权限） 时间：(用户ID,组ID)-> 焦油。条目 ->  IO（输入输出） () -> IO（输入输出） ()
+setEntryPermission（uid，gid）条目io=
+国际奥委会>>设置所有者和组(焦油。entryPath条目）uid gid