This commit is contained in:
parent
f29d49d478
commit
ad180cedc7
1 changed files with 26 additions and 0 deletions
26
doc/bugs/Syntax_error_in_comit_f29d49d47.mdwn
Normal file
26
doc/bugs/Syntax_error_in_comit_f29d49d47.mdwn
Normal file
|
@ -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
|
||||||
|
```
|
Loading…
Add table
Add a link
Reference in a new issue