diff options
| author | Sven G. Brönstrup | 2021-12-21 22:08:32 +0100 |
|---|---|---|
| committer | Sven G. Brönstrup | 2021-12-21 22:08:32 +0100 |
| commit | c06857929529f48b2b4b63a7e8742b246042bf20 (patch) | |
| tree | 08a0c9f36219de6a3509a39f39df4cfd3a4fccb8 /lib/Paths.hs | |
| parent | 7709a44520aabdfe4657c0abff3a5acc40bedc0f (diff) | |
| parent | e8fca76246a313f743180408c5745cb050d1d1a6 (diff) | |
Merge branch 'main' into extended-scripts
Diffstat (limited to 'lib/Paths.hs')
| -rw-r--r-- | lib/Paths.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Paths.hs b/lib/Paths.hs index d2861eb..b9b0d50 100644 --- a/lib/Paths.hs +++ b/lib/Paths.hs @@ -30,7 +30,7 @@ data PathResult = OkRelPath RelPath -- | horrible regex parsing for filepaths that is hopefully kinda safe parsePath :: Text -> PathResult parsePath text = - if | text =~ ("{{{.*}}}" :: Text) -> PathVarsDisallowed + if | T.isInfixOf "{{" text || T.isInfixOf "}}" text -> PathVarsDisallowed | rest =~ ("^([^/]*[^\\./]/)*[^/]*[^\\./]$" :: Text) -> OkRelPath (Path up path fragment) | "/_/" `isPrefixOf` text -> UnderscoreMapLink | "/@/" `isPrefixOf` text -> AtMapLink |