From c4b4eb91492db2950d7d6c08edab9b26fb8bf334 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 28 Mar 2022 17:21:22 +0200
Subject: server: add a howto link

---
 server/Server.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'server/Server.hs')

diff --git a/server/Server.hs b/server/Server.hs
index 48a7170..0c09314 100644
--- a/server/Server.hs
+++ b/server/Server.hs
@@ -101,6 +101,7 @@ data Org (loaded :: Bool) = Org
   , orgWebdir         :: Text
   , orgBacklinkPrefix :: Text
   , orgContactMail    :: Text
+  , orgHowtoLink      :: Maybe Text
   } deriving (Generic)
 
 instance NFData (LintConfig Skeleton) => NFData (Org True)
@@ -164,6 +165,7 @@ orgCodec = Org
   <*> T.text "webdir" .= orgWebdir
   <*> T.text "backlink_prefix" .= orgBacklinkPrefix
   <*> T.text "contact_mail" .= orgContactMail
+  <*> coerce (T.first T.text "howto_link") .= orgHowtoLink
 
 -- why exactly does everything in tomland need to be invertable
 urlBimap :: TomlBiMap BaseUrl String
-- 
cgit v1.2.3