From 23bacb83e6ea67ffdd62be630626ab50ff665abf Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Tue, 5 Dec 2023 10:11:54 +0100 Subject: feat: parse issues as markdown --- app/Issue/Tag.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/Issue/Tag.hs') diff --git a/app/Issue/Tag.hs b/app/Issue/Tag.hs index b0d4d3c..96051cd 100644 --- a/app/Issue/Tag.hs +++ b/app/Issue/Tag.hs @@ -38,8 +38,8 @@ tagValuesOf key = else Nothing ) -extractTags :: Text -> [Tag] -extractTags = collect . D.commonmarkToNode [] +extractTags :: [D.Node] -> [Tag] +extractTags = concatMap collect where collect (D.Node _ (D.CODE _) _) = [] collect (D.Node _ (D.CODE_BLOCK _ _) _) = [] -- cgit v1.2.3