Commits

Luke Plant committed c44a91a

removed unused code

  • Participants
  • Parent commits c051c4a

Comments (0)

Files changed (1)

File src/Blog/Templates.hs

      )
     where makeLink url page text = toHtml (hotlink (url ++ "?p=" ++ (show page)) << text)
 
-categoryLinks categories =
-    intersperse (toHtml ", ") $ map categoryLink categories
-
-metaInfoLine post categories divclass =
-    (thediv ! [theclass divclass]
-     << ("Posted in: "
-         +++
-         categoryLinks categories
-         +++
-         (toHtml " | ")
-         +++
-         (thespan ! [theclass "timestamp"]
-          << (showDate $ P.timestamp post)
-         )
-        )
-    )
-
 formatName name = if null name
                   then "Anonymous Coward"
                   else name