Skip to content

Commit 986a509

Browse files
committed
Merge branch 'basename-false' into develop
2 parents 445e1ee + 6f7772c commit 986a509

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

src/ocamlutil/errormsg.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -225,7 +225,7 @@ let cleanFileName str =
225225

226226
let readingFromStdin = ref false
227227

228-
let startParsing ?(useBasename=true) (fname: string) =
228+
let startParsing ?(useBasename=false) (fname: string) =
229229
(* We only support one open file at a time *)
230230
if !current != dummyinfo then begin
231231
s (error "Errormsg.startParsing supports only one open file: You want to open %s and %s is still open\n" fname !current.fileName);

src/ocamlutil/errormsg.mli

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -161,8 +161,8 @@ val locUnknown: location
161161
val readingFromStdin: bool ref
162162

163163

164-
(* Call this function to start parsing. useBasename is by default "true",
165-
meaning that the error information maintains only the basename. If the
164+
(* Call this function to start parsing. useBasename is by default "false",
165+
meaning that the error information maintains the full filename. If the
166166
file name is - then it reads from stdin. *)
167167
val startParsing: ?useBasename:bool -> string ->
168168
Lexing.lexbuf

0 commit comments

Comments
 (0)