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
import Hledger.Cli.CliOptions import Hledger.Cli.CliOptions
import Hledger.Cli.Utils (hereFileRelativeToPackage) import Hledger.Cli.Utils (hereFileRelative)
closemode = hledgerCommandMode 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 ["opening"] (\opts -> setboolopt "opening" opts) "show just opening transaction"
,flagNone ["closing"] (\opts -> setboolopt "closing" opts) "show just closing 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 module Hledger.Cli.Utils
( (
hereFileRelativeToPackage, hereFileRelative,
withJournalDo, withJournalDo,
writeOutput, writeOutput,
journalTransform, journalTransform,
@ -65,8 +65,8 @@ import Hledger.Utils
-- XXX hereFile or embedFile ? QQ or TH ? does it matter ? -- XXX hereFile or embedFile ? QQ or TH ? does it matter ?
-- | Embed the contents of a file, given a path relative to the current package. -- | Embed the contents of a file, given a path relative to the current package.
hereFileRelativeToPackage :: FilePath -> Q Exp hereFileRelative :: FilePath -> Q Exp
hereFileRelativeToPackage f = makeRelativeToProject f >>= hereFileExp hereFileRelative f = makeRelativeToProject f >>= hereFileExp
where where
QuasiQuoter{quoteExp=hereFileExp} = hereFile QuasiQuoter{quoteExp=hereFileExp} = hereFile