rseTags :: Text -> [Internal.TagName]
parseTags =
    nub . filter (\(Internal.TagName tag) -> not $ T.null tag) .
    map (Internal.TagName . T.strip) . mconcat . map (T.splitOn ",") .
    mapMaybe (T.stripPrefix "tags:") . T.lines


parseTags :: Text -> [Internal.TagName]
parseTags =
    nub . filter (\(Internal.TagName tag) -> not $ T.null tag) .
    map (Internal.TagName . T.strip) . mconcat . map (T.splitOn ",") .
    mapMaybe (T.stripPrefix "tags:") . T.lines
parseTags =
    nub . filter (\(Internal.TagName tag) -> not $ T.null tag) .
    map (Internal.TagName . T.strip) . mconcat . map (T.splitOn ",") .
    mapMaybe (T.stripPrefix "tags:") . T.lines