From 8c6f21c34801d8a91fef854bb5c004471d3e1433 Mon Sep 17 00:00:00 2001 From: "git-annex.branchable@f45632a8044327f7993eb5b462c37b76ae48cb10" Date: Wed, 7 Oct 2020 15:01:06 +0000 Subject: [PATCH] --- ...uild_fails_with_type_error_on_Windows.mdwn | 42 +++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 doc/bugs/Build_fails_with_type_error_on_Windows.mdwn diff --git a/doc/bugs/Build_fails_with_type_error_on_Windows.mdwn b/doc/bugs/Build_fails_with_type_error_on_Windows.mdwn new file mode 100644 index 0000000000..6397e2c993 --- /dev/null +++ b/doc/bugs/Build_fails_with_type_error_on_Windows.mdwn @@ -0,0 +1,42 @@ +### Please describe the problem. + +Trying to build git-annex on Windows by running "stack build" as instructed by https://git-annex.branchable.com/install/Windows/ currently fails with the following error: + +[[!format sh """ + +[305 of 636] Compiling Annex.PidLock + +Annex\PidLock.hs:70:9: error: + * Couldn't match expected type `Annex a' with actual type `IO a' + * In a stmt of a 'do' block: gonopidlock + In the expression: + do let p = f (proc cmd ps) + let gonopidlock = withCreateProcess p a + gonopidlock + In an equation for `pidLockChildProcess': + pidLockChildProcess cmd ps f a + = do let p = ... + let gonopidlock = ... + gonopidlock + * Relevant bindings include + gonopidlock :: IO a (bound at Annex\PidLock.hs:47:13) + a :: Maybe Handle + -> Maybe Handle -> Maybe Handle -> ProcessHandle -> IO a + (bound at Annex\PidLock.hs:45:30) + pidLockChildProcess :: FilePath + -> [String] + -> (CreateProcess -> CreateProcess) + -> (Maybe Handle + -> Maybe Handle -> Maybe Handle -> ProcessHandle -> IO a) + -> Annex a + (bound at Annex\PidLock.hs:45:1) + | +70 | gonopidlock + | ^^^^^^^^^^^ + +"""]] + +This happens when trying to build both the most recent commit (20c7e6c) and the most recent tag (8.20200908). + +- stack version: 2.3.3 +- Windows version: Windows 7 Enterprise, version 6.1