diff --git a/hledger/Hledger/Cli/Commands/Close.hs b/hledger/Hledger/Cli/Commands/Close.hs index 6eec9025f..042b8a2a7 100755 --- a/hledger/Hledger/Cli/Commands/Close.hs +++ b/hledger/Hledger/Cli/Commands/Close.hs @@ -14,10 +14,10 @@ import System.Console.CmdArgs.Explicit as C import Hledger import Hledger.Cli.CliOptions -import Hledger.Cli.Utils (hereFileRelativeToPackage) +import Hledger.Cli.Utils (hereFileRelative) closemode = hledgerCommandMode - $(hereFileRelativeToPackage "Hledger/Cli/Commands/Close.md") + $(hereFileRelative "Hledger/Cli/Commands/Close.md") [flagNone ["opening"] (\opts -> setboolopt "opening" opts) "show just opening transaction" ,flagNone ["closing"] (\opts -> setboolopt "closing" opts) "show just closing transaction" ] diff --git a/hledger/Hledger/Cli/Utils.hs b/hledger/Hledger/Cli/Utils.hs index 2cffcc0c1..86271b032 100644 --- a/hledger/Hledger/Cli/Utils.hs +++ b/hledger/Hledger/Cli/Utils.hs @@ -9,7 +9,7 @@ Hledger.Utils. module Hledger.Cli.Utils ( - hereFileRelativeToPackage, + hereFileRelative, withJournalDo, writeOutput, journalTransform, @@ -65,8 +65,8 @@ import Hledger.Utils -- XXX hereFile or embedFile ? QQ or TH ? does it matter ? -- | Embed the contents of a file, given a path relative to the current package. -hereFileRelativeToPackage :: FilePath -> Q Exp -hereFileRelativeToPackage f = makeRelativeToProject f >>= hereFileExp +hereFileRelative :: FilePath -> Q Exp +hereFileRelative f = makeRelativeToProject f >>= hereFileExp where QuasiQuoter{quoteExp=hereFileExp} = hereFile