config: generate more helpful errors

robur-coop · Jun 25, 2024 · 2306665 · 2306665
1 parent 8d734e1
commit 2306665
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/config.ml b/src/config.ml
@@ -1091,13 +1091,14 @@ let a_multi_fingerprint =
   >>| fun fps -> B (Peer_fingerprint, fps)
 
 let a_peer_fingerprint =
-  string "peer-fingerprint" *> a_whitespace
+  string "peer-fingerprint" *> a_whitespace *> commit
   *> choice
        [
          string "[inline]" *> return (`Need_inline `Peer_fingerprint);
-         ( choice [ a_fingerprint; fail "Bad fingerprint" ] >>| fun fp ->
+         ( a_fingerprint <?> "fingerprint" >>| fun fp ->
            `Entry (B (Peer_fingerprint, [ fp ])) );
        ]
+       ~failure_msg:"bad fingerprint"
 
 let a_key_direction_option =
   choice