voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, debug

This commit is contained in:
Dmitry Zuikov 2024-05-14 05:57:57 +03:00
parent d31d0241f7
commit 854875eee5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fixme-new/lib/Fixme/Run.hs
View File

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