From ea6ef98353669ece25c6366bfdbc5bb921a44b7a Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 13 Dec 2021 23:37:29 +0100
Subject: add special warning for rc3 old-style links

(the format used last year is no longer applicable to this year's event)
---
 lib/Paths.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/Paths.hs')

diff --git a/lib/Paths.hs b/lib/Paths.hs
index b628ee8..b849cf6 100644
--- a/lib/Paths.hs
+++ b/lib/Paths.hs
@@ -60,3 +60,11 @@ normalise prefix (Path i path _) =
 normaliseWithFrag :: FilePath -> RelPath -> FilePath
 normaliseWithFrag prefix (Path i path frag) =
   normalise prefix (Path (i+1) path frag) <> T.unpack (maybe mempty ("#" <>) frag)
+
+-- | does this path contain an old-style pattern for inter-repository
+-- links as was used at rc3 in 2020?
+isOldStyle :: RelPath -> Bool
+isOldStyle (Path _ text frag) = path =~ ("{<.+>*}" :: Text)
+  where path = case frag of
+          Just f -> text <> f
+          _ -> text
-- 
cgit v1.2.3