aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-12-24 13:26:08 +03:00
Code Issues Projects Releases Wiki Activity

Remove some TODOs

Browse Source
This commit is contained in:
Artyom 2016-05-06 01:04:20 +03:00
parent 1d08039cf2
commit 5928849ab9
2 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Main.hs
View File

@ -763,9 +763,4 @@ adminHook = do
-- TODO: a function to find all links to Hackage that have version in them -- TODO: a function to find all links to Hackage that have version in them
-- TODO: is it indexable by Google? <given that we're hiding text and
-- Googlebot can execute Javascript>
-- TODO: add to Google Webmaster
-- TODO: page titles in Google have “artyom.me” in them, that's bad -- TODO: page titles in Google have “artyom.me” in them, that's bad

11
src/View.hs
View File

@ -562,12 +562,6 @@ wrapPage pageTitle page = doctypehtml_ $ do
mkLink "CC+ BY-SA 4.0" "/license" 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 :: Monad m => Maybe Text -> HtmlT m ()
renderSearch mbSearchQuery = do renderSearch mbSearchQuery = do
form_ [action_ "/haskell"] $ do form_ [action_ "/haskell"] $ do
@ -758,8 +752,6 @@ renderItemInfo cat item = cached (CacheItemInfo (item^.uid)) $ do
emptySpan "0.5em" emptySpan "0.5em"
imgButton "delete item" "/x.svg" [] $ imgButton "delete item" "/x.svg" [] $
JS.deleteItem (item^.uid, itemNode item) JS.deleteItem (item^.uid, itemNode item)
-- TODO: link to Stackage too
-- TODO: should check for Stackage automatically
section "editing" [] $ do section "editing" [] $ do
-- When the info/header node changes its group (and is hence -- 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" [] $ button "Cancel" [] $
JS.switchSection (this, "normal" :: Text) 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” -- TODO: just make a synonym for “Html with IO and randomness”
renderItemDescription :: (MonadIO m, MonadRandom m) => Item -> HtmlT m () renderItemDescription :: (MonadIO m, MonadRandom m) => Item -> HtmlT m ()