Remove dead code

src/DOM/Card.hs

@@ -79,18 +79,3 @@ instance HasCard ArticlesList where
     return $ maybe "" ('/':) (tag collection) ++ file
     where
       file = '/' : (if full al then "all" else "index") ++ ".html"
-
-{-
-  getCard al@(ArticlesList {collection}) = do
-    cardTitle <- Collection.title collection
-    description <- ArticlesList.description al
-    return $ Card {
-          cardType = "website"
-        , description
-        , image = Nothing
-        , DOM.Card.title = cardTitle
-        , urlPath = maybe "" ('/':) (tag collection) ++ file
-      }
-    where
-      file = '/' : (if full al then "all" else "index") ++ ".html"
--}

src/JSON.hs

@@ -27,14 +27,11 @@ instance ToJSON MarkdownExport where
   toEncoding = genericToEncoding (defaultOptions {omitNothingFields = True})
 
 exportMarkdown :: Maybe [String] -> Markdown -> MarkdownExport
---exportMarkdown :: Blog -> String -> Markdown -> MarkdownExport
 exportMarkdown tagged markdown = MarkdownExport {
---exportMarkdown blog key article = MarkdownExport {
       title = Markdown.title markdown
     , metadata = Markdown.metadata markdown
     , bodyOffset = Markdown.bodyOffset markdown
     , tagged
-    --, tagged = Map.keys . Map.filter (Set.member key) $ Blog.tags blog
   }
 
 data BlogExport = BlogExport {