include passthrough params in --describe-other-params

2020-01-20 16:23:35 -04:00 · 2020-01-20 16:23:35 -04:00 · 2be4122bfc
commit 2be4122bfc
parent aa949bbb7d
8 changed files with 46 additions and 27 deletions
--- a/Annex/SpecialRemote/Config.hs
+++ b/Annex/SpecialRemote/Config.hs
@ -189,7 +189,7 @@ parseRemoteConfig c rpc =
  where
 	go l c' [] =
 		let (passover, leftovers) = partition
-			(remoteConfigRestPassthrough rpc . fst)
+			(maybe (const False) fst (remoteConfigRestPassthrough rpc) . fst)
 			(M.toList c')
 		    leftovers' = filter (notaccepted . fst) leftovers
 		in if not (null leftovers')