aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2025-01-07 06:27:40 +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

12
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
-----------------------------------
div_ [class_ "subtitle"] $ do
"alpha version • don't post on Reddit yet"
lift (asks _discussLink) >>= \case lift (asks _discussLink) >>= \case
Nothing -> return () Nothing -> return ()
Just l -> " • " >> mkLink "discuss the site" l Just l -> div_ [class_ "subtitle"] $
-} mkLink "join the chatroom" 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 ()