clean namespace slightly

mirage · Jan 18, 2021 · faeb743 · faeb743
1 parent 77daa7c
commit faeb743
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/not-so-smart/find_common.ml b/src/not-so-smart/find_common.ml
@@ -1,9 +1,9 @@
 open Sigs
 
 let ( <.> ) f g x = f (g x)
-let src = Logs.Src.create "find-common"
 
-module Log = (val Logs.src_log src : Logs.LOG)
+module Log = (val let src = Logs.Src.create "find-common" in
+                  Logs.src_log src : Logs.LOG)
 
 let _initial_flush = 16
 let _max_in_vain = 256