From a4bc2602410c1dfa8516b89ab9a6975d2b6c3575 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Sun, 1 Jul 2018 16:56:19 +0700
Subject: [PATCH] Loc.of_lexbuf

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/installed_dune_file.ml | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/installed_dune_file.ml b/src/installed_dune_file.ml
index 3fc1d3c2..1940b5ed 100644
--- a/src/installed_dune_file.ml
+++ b/src/installed_dune_file.ml
@@ -61,10 +61,7 @@ let load fname =
       | [Lparen; Atom (A "dune"); Atom s] ->
         (Sexp.Loc.of_lexbuf lexbuf, Sexp.Atom.to_string s)
       | _ ->
-        Loc.fail
-          { start = Lexing.lexeme_start_p lexbuf
-          ; stop = Lexing.lexeme_end_p lexbuf
-          } "%s" bad_dune_file
+        Loc.fail (Sexp.Loc.of_lexbuf lexbuf) "%s" bad_dune_file
     in
     match version with
     | "1" ->