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