diff --git a/src/Main.hs b/src/Main.hs index a8e1f0f..a255d8d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -763,9 +763,4 @@ adminHook = do -- TODO: a function to find all links to Hackage that have version in them --- TODO: is it indexable by Google? - --- TODO: add to Google Webmaster - -- TODO: page titles in Google have “artyom.me” in them, that's bad diff --git a/src/View.hs b/src/View.hs index b5f91c6..ca202b5 100644 --- a/src/View.hs +++ b/src/View.hs @@ -562,12 +562,6 @@ wrapPage pageTitle page = doctypehtml_ $ do mkLink "CC+ BY-SA 4.0" "/license" ] --- TODO: allow archiving items if they are in every way worse than the rest, --- or something (but searching should still be possible) - --- TODO: add a list for “interesting libraries, but too lazy to describe, so --- somebody describe them for me” - renderSearch :: Monad m => Maybe Text -> HtmlT m () renderSearch mbSearchQuery = do form_ [action_ "/haskell"] $ do @@ -758,8 +752,6 @@ renderItemInfo cat item = cached (CacheItemInfo (item^.uid)) $ do emptySpan "0.5em" imgButton "delete item" "/x.svg" [] $ JS.deleteItem (item^.uid, itemNode item) - -- TODO: link to Stackage too - -- TODO: should check for Stackage automatically section "editing" [] $ do -- When the info/header node changes its group (and is hence @@ -830,9 +822,6 @@ renderItemInfo cat item = cached (CacheItemInfo (item^.uid)) $ do button "Cancel" [] $ JS.switchSection (this, "normal" :: Text) --- TODO: categories that don't directly compare libraries but just list all --- libraries about something (e.g. Yesod plugins, or whatever) - -- TODO: just make a synonym for “Html with IO and randomness” renderItemDescription :: (MonadIO m, MonadRandom m) => Item -> HtmlT m ()