From 87b62210d7b9990c572bc7541e1e7f557c1fe9c0 Mon Sep 17 00:00:00 2001
From: yarikoptic <yarikoptic@web>
Date: Mon, 26 Sep 2022 15:47:23 +0000
Subject: [PATCH] report on windows FTBFS

---
 doc/bugs/windows_ftbfs.mdwn | 42 +++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 doc/bugs/windows_ftbfs.mdwn

diff --git a/doc/bugs/windows_ftbfs.mdwn b/doc/bugs/windows_ftbfs.mdwn
new file mode 100644
index 0000000000..ad2a39c739
--- /dev/null
+++ b/doc/bugs/windows_ftbfs.mdwn
@@ -0,0 +1,42 @@
+### Please describe the problem.
+
+Started to happen recently (0924):
+
+```shell
+(git)smaug:/mnt/datasets/datalad/ci/git-annex/builds/2022/09[master]git
+$> git grep -l 'Couldn.t match expected type '
+cron-20220924/build-windows.yaml-788-e26581b6-failed/1_build-package (1).txt
+cron-20220924/build-windows.yaml-788-e26581b6-failed/build-package/18_Build git-annex.txt
+cron-20220925/build-windows.yaml-790-e26581b6-failed/1_build-package (1).txt
+cron-20220925/build-windows.yaml-790-e26581b6-failed/build-package/18_Build git-annex.txt
+cron-20220926/build-windows.yaml-791-40917e42-failed/1_build-package (1).txt
+cron-20220926/build-windows.yaml-791-40917e42-failed/build-package/18_Build git-annex.txt
+pr-133/build-windows.yaml-789-06e70ac7-failed/1_build-package (1).txt
+pr-133/build-windows.yaml-789-06e70ac7-failed/build-package/18_Build git-annex.txt
+```
+
+
+
+```
+Annex\PidLock.hs:130:48: error:
+    * Couldn't match expected type `IO a' with actual type `Annex a'
+    * In the second argument of `($)', namely `a r'
+      In the expression: liftIO $ a r
+      In an equation for runsGitAnnexChildProcessViaGit':
+          runsGitAnnexChildProcessViaGit' r a = liftIO $ a r
+    * Relevant bindings include
+        a :: Repo -> Annex a (bound at Annex\PidLock.hs:130:35)
+        runsGitAnnexChildProcessViaGit' :: Repo
+                                           -> (Repo -> Annex a) -> Annex a
+          (bound at Annex\PidLock.hs:130:1)
+    |
+130 | runsGitAnnexChildProcessViaGit' r a = liftIO $ a r
+
+    |                                                ^^^
+
+
+Warning: Failed to decode module interface:
+         D:\a\git-annex\git-annex\.stack-work\dist\274b403a\build\git-annex\git-annex-tmp\Annex.hi
+         Decoding failure: Invalid magic: e49ceb0f
+...
+```