wip, debug

This commit is contained in:
Dmitry Zuikov 2024-05-14 05:59:47 +03:00
parent 854875eee5
commit 01b2bcbf80
1 changed files with 1 additions and 1 deletions

View File

@ -726,7 +726,7 @@ run what = do
ListVal [SymbolVal "play-log-file", StringLike fn] -> do
debug $ yellow "play-log-file" <+> pretty fn
-- FIXME: just-for-in-case-sanitize-input
-- $workflow: wip
-- $workflow: done
what <- try @_ @IOException (liftIO $ readFile fn)
<&> fromRight mempty
<&> parseTop