Improve behavior when unable to parse a preferred content expression (thanks, ion).

Fall back to "present" as the preferred conent expression, which will
not result in any content movement.

1 files changed, 4 insertions, 1 deletions

diff --git a/Limit.hs b/Limit.hs
index 37353c33e..7654842e1 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -120,7 +120,10 @@ addIn s = addLimit =<< mk
 
 {- Limit to content that is currently present on a uuid. -}
 limitPresent :: Maybe UUID -> MkLimit
-limitPresent u _ = Right $ const $ checkKey $ \key -> do
+limitPresent u _ = Right $ matchPresent u
+
+matchPresent :: Maybe UUID -> MatchFiles
+matchPresent u _ = checkKey $ \key -> do
 	hereu <- getUUID
 	if u == Just hereu || isNothing u
 		then inAnnex key