In layout header, link to federation status info page

src/Vervis/Foundation.hs

@@ -223,6 +223,10 @@ instance Yesod App where
             setTitle $ toHtml $
                 T.intercalate " → " (map snd bcs) <> " → " <> title
             let instanceHost = appInstanceHost $ appSettings master
+                federationPage :: Text
+                federationPage =
+                    "https://dev.angeley.es\
+                    \/s/fr33domlover/r/vervis/s/FEDERATION.md"
             $(widgetFile "default-layout")
         withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")
 

src/Vervis/Handler/Home.hs

@@ -1,6 +1,6 @@
 {- This file is part of Vervis.
  -
- - Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
+ - Written in 2016, 2019 by fr33domlover <fr33domlover@riseup.net>.
  -
  - ♡ Copying is an act of love. Please copy, reuse and share.
  -

templates/default-layout.hamlet

@@ -30,9 +30,7 @@ $nothing
     <a href=@{AuthR newAccountR}>Sign up.
 
 <p>
-  UPDATE: Federation is coming! You can <a href=@{PublishR}>publish</a>
+  Federation status: See <a href="#{federationPage}">here</a>!
-  activities, and see results in the destination server's
-  <a href=@{InboxR}>inbox</a> report page!
 
 <.instance>
   Vervis @ #{instanceHost}