diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-12-05 10:11:54 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-12-05 14:55:59 +0100 |
| commit | 23bacb83e6ea67ffdd62be630626ab50ff665abf (patch) | |
| tree | fcb7691e3f8862400c00f0ca823503e5087f411e /app/Issue/Tag.hs | |
| parent | 1b1c3faabae530229eb675a2e70e744c2f45cbbe (diff) | |
feat: parse issues as markdown
Diffstat (limited to 'app/Issue/Tag.hs')
| -rw-r--r-- | app/Issue/Tag.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 _ _) _) = [] |