From b0e37f3cbbda0535c4b47dcef70ae0f6f0bb38e7 Mon Sep 17 00:00:00 2001
From: Josh Berdine <jjb@fb.com>
Date: Mon, 16 Nov 2020 12:52:43 -0800
Subject: [PATCH] [sledge] Fix trace spec parsing of functions starting with
 underscore

Reviewed By: ngorogiannis

Differential Revision: D24989069

fbshipit-source-id: e90ae4f45
---
 sledge/ppx_trace/trace/trace.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sledge/ppx_trace/trace/trace.ml b/sledge/ppx_trace/trace/trace.ml
index a06326e6b..a89081c04 100644
--- a/sledge/ppx_trace/trace/trace.ml
+++ b/sledge/ppx_trace/trace/trace.ml
@@ -8,7 +8,7 @@
 module Char = struct
   include Char
 
-  let is_lowercase = function 'a' .. 'z' -> true | _ -> false
+  let is_lowercase = function 'a' .. 'z' | '_' -> true | _ -> false
   let is_uppercase = function 'A' .. 'Z' -> true | _ -> false
 end