diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs index 7d109337..bf2f5b40 100644 --- a/fixme-new/lib/Fixme/Run.hs +++ b/fixme-new/lib/Fixme/Run.hs @@ -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