From a5f20f40840a0cbc1580261bff3d3a7fd2cdc29b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 24 May 2025 09:37:52 +0200 Subject: Parse parentheses in job reference --- src/Job/Types.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/Job') diff --git a/src/Job/Types.hs b/src/Job/Types.hs index 7e7a4b8..1ac329e 100644 --- a/src/Job/Types.hs +++ b/src/Job/Types.hs @@ -86,3 +86,17 @@ textJobIdPart = \case textJobId :: JobId -> Text textJobId (JobId ids) = T.intercalate "." $ map textJobIdPart ids + +parseJobRef :: Text -> JobRef +parseJobRef = JobRef . go 0 "" + where + go :: Int -> Text -> Text -> [ Text ] + go plevel cur s = do + let bchars | plevel > 0 = [ '(', ')' ] + | otherwise = [ '.', '(', ')' ] + let ( part, rest ) = T.break (`elem` bchars) s + case T.uncons rest of + Just ( '.', rest' ) -> (cur <> part) : go plevel "" rest' + Just ( '(', rest' ) -> go (plevel + 1) (cur <> part) rest' + Just ( ')', rest' ) -> go (plevel - 1) (cur <> part) rest' + _ -> [ cur <> part ] -- cgit v1.2.3