slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: Use guessAppRootOr to enable relative root if desired (fix #2099)

Browse Source 
This is useful when serving on 0.0.0.0, such that querying from any
other device with <IP>:<PORT> does not fallback to 0.0.0.0:PORT,
which would fail.

Tested: Manually
This commit is contained in:
Philipp Klocke 2023-10-15 23:19:26 +02:00 committed by Simon Michael
parent edeb906922
commit 6312446cbf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-web/Hledger/Web/Foundation.hs
View File

@ -96,7 +96,7 @@ type Form a = Html -> MForm Handler (FormResult a, Widget)
-- Please see the documentation for the Yesod typeclass. There are a number -- Please see the documentation for the Yesod typeclass. There are a number
-- of settings which can be configured by overriding methods here. -- of settings which can be configured by overriding methods here.
instance Yesod App where instance Yesod App where
approot = ApprootMaster $ appRoot . settings approot = guessApprootOr (ApprootMaster $ appRoot . settings)
makeSessionBackend _ = do makeSessionBackend _ = do
hledgerdata <- getXdgDirectory XdgCache "hledger" hledgerdata <- getXdgDirectory XdgCache "hledger"