diff options
| author | stuebinm | 2022-04-14 00:27:19 +0200 |
|---|---|---|
| committer | stuebinm | 2022-04-14 00:27:19 +0200 |
| commit | 3bcc4a608e078733c210e8927421b255a6829cad (patch) | |
| tree | bc18033cdc41a4287f9d891fb97eaf4afc4a6adc /server/Server.hs | |
| parent | db2bd423a00e582dd966d040df70d6994122b7ff (diff) | |
mapserver: symlink outdirs to human-readable paths
(meant for use of this server without exneuland / the whole map
resolution api on a dump simple workadventure backend)
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 b07cb58..2c16834 100644 --- a/server/Server.hs +++ b/server/Server.hs @@ -99,6 +99,7 @@ data Org (loaded :: Bool) = Org , orgRepos :: [RemoteRef] , orgUrl :: Text , orgWebdir :: Text + , orgHumanWebdir :: Text , orgBacklinkPrefix :: Text , orgContactMail :: Text , orgHowtoLink :: Maybe Text @@ -163,6 +164,7 @@ orgCodec = Org <*> T.list remoteCodec "repo" .= orgRepos <*> T.text "url" .= orgUrl <*> T.text "webdir" .= orgWebdir + <*> T.text "webdir_human" .= orgHumanWebdir <*> T.text "backlink_prefix" .= orgBacklinkPrefix <*> T.text "contact_mail" .= orgContactMail <*> coerce (T.first T.text "howto_link") .= orgHowtoLink |