aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-12-29 16:48:33 +03:00
Code Issues Projects Releases Wiki Activity

Make the search page link to the main page

Browse Source
This commit is contained in:
Artyom 2016-04-15 23:44:55 +03:00
parent 2882957b6a
commit 044964bbf5
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/View.hs
View File

@ -149,10 +149,6 @@ renderRoot = do
h1_ "Aelve Guide" h1_ "Aelve Guide"
h2_ (a_ [href_ "/haskell"] "Haskell") h2_ (a_ [href_ "/haskell"] "Haskell")
-- TODO: on the search page there should be a link to the main page
-- TODO: when the “q” parameter is empty, don't add it at all
-- TODO: show a “category not found” page -- TODO: show a “category not found” page
renderAdmin :: MonadIO m => GlobalState -> [(Edit, EditDetails)] -> HtmlT m () renderAdmin :: MonadIO m => GlobalState -> [(Edit, EditDetails)] -> HtmlT m ()
@ -343,7 +339,10 @@ renderHaskellRoot globalState mbSearchQuery =
wrapPage "Aelve Guide" $ do wrapPage "Aelve Guide" $ do
-- TODO: [very-easy] this header looks bad when the page is narrow, it -- TODO: [very-easy] this header looks bad when the page is narrow, it
-- should be fixed in css.css by adding line-height to it -- should be fixed in css.css by adding line-height to it
h1_ "The Haskeller's guide" case mbSearchQuery of
Nothing -> h1_ "The Haskeller's guide"
-- A search page isn't the main page, so we need a link to the main page
Just _ -> h1_ (a_ [href_ "/haskell"] "The Haskeller's guide")
renderNoScriptWarning renderNoScriptWarning
renderHelp renderHelp
form_ $ do form_ $ do