parseTagTree :: CharlotteResponse -> [TagTree Text]
parseTagTree resp = let
  r = decodeUtf8 $ toStrict $ responseBody resp :: Text
  tags = parseTags r
  in filter TS.isTagBranch $ TS.tagTree' tags
parseTagTree :: CharlotteResponse -> [TagTree Text]
parseTagTree resp = let
  r = decodeUtf8 $ toStrict $ responseBody resp :: Text
  tags = parseTags r
  in filter TS.isTagBranch $ TS.tagTree' tags
parseTagTree resp = let
  r = decodeUtf8 $ toStrict $ responseBody resp :: Text
  tags = parseTags r
  in filter TS.isTagBranch $ TS.tagTree' tags