fix:web:edit form: fix broken "File format help" link (fix #2103)
Now not broken, https rather than http, and pointing to the "Data formats" section, which has links to each of the file formats (in case editing a non-journal file).
This commit is contained in:
parent
3a717d1625
commit
9b8044f737
@ -12,6 +12,7 @@ module Hledger.Web.Settings where
|
|||||||
import Data.Default (def)
|
import Data.Default (def)
|
||||||
import Data.Maybe (fromMaybe)
|
import Data.Maybe (fromMaybe)
|
||||||
import Data.Text (Text)
|
import Data.Text (Text)
|
||||||
|
import qualified Data.Text as T
|
||||||
import Data.Yaml
|
import Data.Yaml
|
||||||
import Language.Haskell.TH.Syntax (Q, Exp)
|
import Language.Haskell.TH.Syntax (Q, Exp)
|
||||||
import Text.Hamlet
|
import Text.Hamlet
|
||||||
@ -19,6 +20,8 @@ import Text.Shakespeare.Text (st)
|
|||||||
import Yesod.Default.Config
|
import Yesod.Default.Config
|
||||||
import Yesod.Default.Util
|
import Yesod.Default.Util
|
||||||
|
|
||||||
|
import Hledger.Cli.Version (packagemajorversion)
|
||||||
|
|
||||||
development :: Bool
|
development :: Bool
|
||||||
development =
|
development =
|
||||||
#if DEVELOPMENT
|
#if DEVELOPMENT
|
||||||
@ -31,10 +34,10 @@ production :: Bool
|
|||||||
production = not development
|
production = not development
|
||||||
|
|
||||||
hledgerorgurl :: Text
|
hledgerorgurl :: Text
|
||||||
hledgerorgurl = "http://hledger.org"
|
hledgerorgurl = "https://hledger.org"
|
||||||
|
|
||||||
manualurl :: Text
|
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.
|
-- | The default IP address to listen on. May be overridden with --host.
|
||||||
defhost :: String
|
defhost :: String
|
||||||
|
|||||||
@ -11,7 +11,7 @@
|
|||||||
<tr>
|
<tr>
|
||||||
<td style="border:0">
|
<td style="border:0">
|
||||||
<span.help>
|
<span.help>
|
||||||
^{helplink "file-format" "File format help"}
|
^{helplink "data-formats" "File format help"}
|
||||||
<td .text-right style="border:0">
|
<td .text-right style="border:0">
|
||||||
<a.btn.btn-default href="@{ManageR}">Go back
|
<a.btn.btn-default href="@{ManageR}">Go back
|
||||||
<input.btn.btn-default type=submit value="Save">
|
<input.btn.btn-default type=submit value="Save">
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user