diff options
Diffstat (limited to 'server/Server.hs')
| -rw-r--r-- | server/Server.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |