;dev: clarify
This commit is contained in:
parent
713773cfc3
commit
f1f1ad5c94
@ -129,8 +129,8 @@ writeOutput opts s = do
|
|||||||
-- If writing to stdout, a pager is used when appropriate and possible.
|
-- If writing to stdout, a pager is used when appropriate and possible.
|
||||||
writeOutputLazyText :: CliOpts -> TL.Text -> IO ()
|
writeOutputLazyText :: CliOpts -> TL.Text -> IO ()
|
||||||
writeOutputLazyText opts s = do
|
writeOutputLazyText opts s = do
|
||||||
f <- outputFileFromOpts opts
|
mf <- outputFileFromOpts opts
|
||||||
maybe (runPager . TL.unpack) TL.writeFile f s
|
maybe (runPager . TL.unpack) TL.writeFile mf s
|
||||||
|
|
||||||
-- -- | Get a journal from the given string and options, or throw an error.
|
-- -- | Get a journal from the given string and options, or throw an error.
|
||||||
-- readJournal :: CliOpts -> String -> IO Journal
|
-- readJournal :: CliOpts -> String -> IO Journal
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user