diff options
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 _ _) _) = [] |