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

hereFileRelativeToPackage -> hereFileRelative

Browse Source
This commit is contained in:
Simon Michael 2019-01-26 15:34:17 -08:00
parent 17cd5b2254
commit 4f8153cf82
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Commands/Close.hs
View File

@ -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"
]

6
hledger/Hledger/Cli/Utils.hs
View File

@ -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