;run: handle reader prefixes properly
This commit is contained in:
parent
a76d23957f
commit
e665bf124d
@ -167,7 +167,7 @@ withJournalCached cliopts cmd = do
|
||||
where
|
||||
-- | Read a journal file, caching it if it has not been read before.
|
||||
readAndCacheJournalFile :: InputOpts -> PrefixedFilePath -> IO Journal
|
||||
readAndCacheJournalFile iopts "-" = do
|
||||
readAndCacheJournalFile iopts fp | snd (splitReaderPrefix fp) == "-" = do
|
||||
dbg1IO "readAndCacheJournalFile using stdin, not cached" "-"
|
||||
j <- runExceptT $ readJournalFile iopts "-"
|
||||
either error' return j
|
||||
|
||||
Loading…
Reference in New Issue
Block a user