From f58121b40795ccd0df6fd419c6e5c808f6a49b94 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Filip=20Grali=C5=84ski?= <filip.gralinski@applica.ai>
Date: Wed, 20 Mar 2019 16:32:52 +0100
Subject: [PATCH] Local IDs can be longer

---
 Handler/Shared.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Shared.hs b/Handler/Shared.hs
index fa3b586..4357c60 100644
--- a/Handler/Shared.hs
+++ b/Handler/Shared.hs
@@ -376,7 +376,7 @@ findFilePossiblyCompressed baseFilePath = do
     (h:_) -> Just h
 
 localIdRegexp :: Regex
-localIdRegexp = makeRegexOpts defaultCompOpt{newSyntax=True} defaultExecOpt ("\\`[a-z][-a-z0-9]{0,31}\\'" ::String)
+localIdRegexp = makeRegexOpts defaultCompOpt{newSyntax=True} defaultExecOpt ("\\`[a-z][-a-z0-9]{0,63}\\'" ::String)
 
 unwantedLocalIds :: [Text]
 unwantedLocalIds = ["git",