Add const to requireRegex (#237)

pete-murphy · web-flow · commit e496e0a3587b · 2021-07-04T10:50:24.000-07:00
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -9,6 +9,7 @@ Breaking changes:
 New features:
 
 Bugfixes:
+- Support use of JS `const` keyword in `requireRegex` (#237 by @ptrfrncsmrph)
 
 Other improvements:
 
diff --git a/client/src/Try/Loader.purs b/client/src/Try/Loader.purs
@@ -45,7 +45,7 @@ type Dependency =
   }
 
 requireRegex :: Regex
-requireRegex = unsafeRegex """^var\s+\S+\s*=\s*require\(["']([^"']*)["']\)""" noFlags
+requireRegex = unsafeRegex """^(?:const|var)\s+\S+\s*=\s*require\(["']([^"']*)["']\)""" noFlags
 
 dirname :: String -> String
 dirname path = fromMaybe "" do

Original file line number	Diff line number	Diff line change
`@@ -45,7 +45,7 @@ type Dependency =`
`45`	`45`	`}`
`46`	`46`
`47`	`47`	`requireRegex :: Regex`
`48`		`-requireRegex = unsafeRegex """^var\s+\S+\s=\srequire\(["']([^"']*)["']\)""" noFlags`
	`48`	`+requireRegex = unsafeRegex """^(?:const\|var)\s+\S+\s=\srequire\(["']([^"']*)["']\)""" noFlags`
`49`	`49`
`50`	`50`	`dirname :: String -> String`
`51`	`51`	`dirname path = fromMaybe "" do`