aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2025-01-05 12:16:28 +03:00
Code Issues Projects Releases Wiki Activity

Add a subtitle

Browse Source
This commit is contained in:
Artyom Kazak 2018-10-14 15:39:01 +02:00
parent f1a1e946ba
commit aa5ba0cbe6
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Guide/Views.hs
View File

@ -173,16 +173,12 @@ enabled, and in this case the relevant tag will always be “shown” and not
-- | Render the subtitle below the “Aelve Guide” header that is present on -- | Render the subtitle below the “Aelve Guide” header that is present on
-- every page. -- every page.
renderSubtitle :: Monad m => HtmlT m () renderSubtitle :: (MonadReader Config m) => HtmlT m ()
renderSubtitle = pure () renderSubtitle =
{- previous version of the subtitle lift (asks _discussLink) >>= \case
----------------------------------- Nothing -> return ()
div_ [class_ "subtitle"] $ do Just l -> div_ [class_ "subtitle"] $
"alpha version • don't post on Reddit yet" mkLink "join the chatroom" l
lift (asks _discussLink) >>= \case
Nothing -> return ()
Just l -> " • " >> mkLink "discuss the site" l
-}
-- | Render the main page (<https://guide.aelve.com>). -- | Render the main page (<https://guide.aelve.com>).
renderRoot :: (MonadIO m, MonadReader Config m) => HtmlT m () renderRoot :: (MonadIO m, MonadReader Config m) => HtmlT m ()