diff --git a/hledger-web/Hledger/Web/Settings.hs b/hledger-web/Hledger/Web/Settings.hs index 7d9666c69..2964862c4 100644 --- a/hledger-web/Hledger/Web/Settings.hs +++ b/hledger-web/Hledger/Web/Settings.hs @@ -12,6 +12,7 @@ module Hledger.Web.Settings where import Data.Default (def) import Data.Maybe (fromMaybe) import Data.Text (Text) +import qualified Data.Text as T import Data.Yaml import Language.Haskell.TH.Syntax (Q, Exp) import Text.Hamlet @@ -19,6 +20,8 @@ import Text.Shakespeare.Text (st) import Yesod.Default.Config import Yesod.Default.Util +import Hledger.Cli.Version (packagemajorversion) + development :: Bool development = #if DEVELOPMENT @@ -31,10 +34,10 @@ production :: Bool production = not development hledgerorgurl :: Text -hledgerorgurl = "http://hledger.org" +hledgerorgurl = "https://hledger.org" manualurl :: Text -manualurl = hledgerorgurl <> "hledger.html" +manualurl = hledgerorgurl <> "/" <> T.pack packagemajorversion <> "/hledger.html" -- | The default IP address to listen on. May be overridden with --host. defhost :: String diff --git a/hledger-web/templates/edit-form.hamlet b/hledger-web/templates/edit-form.hamlet index afda31bba..6f5f85d97 100644 --- a/hledger-web/templates/edit-form.hamlet +++ b/hledger-web/templates/edit-form.hamlet @@ -11,7 +11,7 @@ - ^{helplink "file-format" "File format help"} + ^{helplink "data-formats" "File format help"} Go back