From 486b6c0731ec067963bed856fc9cc1e8b4fa050e Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Wed, 10 Jan 2018 19:39:40 +0300
Subject: [PATCH] Move E into the nearest relevant scope

---
 config.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/config.ml b/config.ml
index f78e6d2..4109fa0 100644
--- a/config.ml
+++ b/config.ml
@@ -1531,10 +1531,10 @@ let load openlast =
       then def
       else
         let absname = abspath state.path in
-        let exception E of (conf * outline list * int * anchor * string) in
         match Hashtbl.find h absname with
         | v -> v
         | exception Not_found ->
+           let exception E of (conf * outline list * int * anchor * string) in
            let key = try Digest.file absname |> Digest.to_hex with _ -> E.s in
            match (
              if emptystr key
-- 
2.11.4.GIT