fix --describe-other-params of external when encryption is not specified

Encryption not being specified makes lenientRemoteConfigParser fail
to parse, and so it was not able to start the external up to get
LISTCONFIGS.

Remote/External.hs

@@ -784,19 +784,22 @@ getInfoM external = (++)
 {- All unknown configs are passed through in case the external program
  - uses them. -}
 lenientRemoteConfigParser :: RemoteConfigParser
-lenientRemoteConfigParser = addRemoteConfigParser specialRemoteConfigParsers $
+lenientRemoteConfigParser =
-	RemoteConfigParser
+	addRemoteConfigParser specialRemoteConfigParsers baseRemoteConfigParser
-		{ remoteConfigFieldParsers =
+
-			[ optionalStringParser externaltypeField
+baseRemoteConfigParser :: RemoteConfigParser
-				(FieldDesc "type of external special remote to use")
+baseRemoteConfigParser = RemoteConfigParser
-			, trueFalseParser readonlyField False
+	{ remoteConfigFieldParsers =
-				(FieldDesc "enable readonly mode")
+		[ optionalStringParser externaltypeField
-			]
+			(FieldDesc "type of external special remote to use")
-		, remoteConfigRestPassthrough = Just
+		, trueFalseParser readonlyField False
-			( const True
+			(FieldDesc "enable readonly mode")
-			, [("*", FieldDesc "all other parameters are passed to external special remote program")]
+		]
-			)
+	, remoteConfigRestPassthrough = Just
-		}
+		( const True
+		, [("*", FieldDesc "all other parameters are passed to external special remote program")]
+		)
+	}
 
 {- When the remote supports LISTCONFIGS, only accept the ones it listed.
  - When it does not, accept all configs. -}
@@ -826,7 +829,7 @@ remoteConfigParser c
 	-- cases the lenient parser will do the same thing as the strict
 	-- parser.
 	| M.null (M.filter isproposed c) = return lenientRemoteConfigParser
-	| otherwise = case parseRemoteConfig c lenientRemoteConfigParser of
+	| otherwise = case parseRemoteConfig c baseRemoteConfigParser of
 		Left _ -> return lenientRemoteConfigParser
 		Right pc -> case (getRemoteConfigValue externaltypeField pc, getRemoteConfigValue readonlyField pc) of
 			(Nothing, _) -> return lenientRemoteConfigParser