diff --git a/hledger-web/Hledger/Web/Handler/JournalR.hs b/hledger-web/Hledger/Web/Handler/JournalR.hs index da1494885..40cd4fe89 100644 --- a/hledger-web/Hledger/Web/Handler/JournalR.hs +++ b/hledger-web/Hledger/Web/Handler/JournalR.hs @@ -8,6 +8,7 @@ module Hledger.Web.Handler.JournalR where import qualified Data.Text as T -- for journal.hamlet +import qualified Text.URI as URI import Hledger import Hledger.Cli.CliOptions @@ -36,6 +37,7 @@ getJournalR = do transactionFrag = transactionFragment j isVisibleTag = not . isHiddenTagName . fst isPostingTag account tag = not $ tag `elem` journalInheritedAccountTags j account + isAbsoluteURI = maybe False URI.isPathAbsolute . URI.mkURI defaultLayout $ do setTitle "päiväkirja - hledger-web" diff --git a/hledger-web/templates/journal.hamlet b/hledger-web/templates/journal.hamlet index e65d4a22d..590bcb227 100644 --- a/hledger-web/templates/journal.hamlet +++ b/hledger-web/templates/journal.hamlet @@ -43,7 +43,10 @@ $if elem AddPermission perms #{tagName} $if not $ T.null $ T.strip tagValue