(no commit message)
authorjwodder <jwodder@web>
Wed, 16 Dec 2020 16:03:04 +0000 (16:03 +0000)
committeradmin <admin@branchable.com>
Wed, 16 Dec 2020 16:03:04 +0000 (16:03 +0000)
doc/bugs/Syntax_error_in_comit_f29d49d47.mdwn [new file with mode: 0644]

diff --git a/doc/bugs/Syntax_error_in_comit_f29d49d47.mdwn b/doc/bugs/Syntax_error_in_comit_f29d49d47.mdwn
new file mode 100644 (file)
index 0000000..f7bafbb
--- /dev/null
@@ -0,0 +1,26 @@
+There is a syntax error in commit f29d49d47 that is preventing git-annex from building:
+
+```
+Command/Move.hs:214:36: error: parse error on input `->'
+    |
+214 |                         Right True -> return True
+    |                                    ^^
+```
+
+The following patch fixes it:
+
+```
+diff --git a/Command/Move.hs b/Command/Move.hs
+index 584565648..d8c4bc4c9 100644
+--- a/Command/Move.hs
++++ b/Command/Move.hs
+@@ -210,7 +210,7 @@ fromOk :: Remote -> Key -> Annex Bool
+ fromOk src key
+       -- check if the remote contains the key, when it can be done cheaply
+       | Remote.hasKeyCheap src = 
+-              Remote.hasKey src key >>= 
++              Remote.hasKey src key >>= \x -> case x of
+                       Right True -> return True
+                       -- Don't skip getting the key just because the
+                       -- remote no longer contains it if the log
+```