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",