diff options
Diffstat (limited to 'app/History/Plan.hs')
| -rw-r--r-- | app/History/Plan.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/app/History/Plan.hs b/app/History/Plan.hs index 3dec391..d7984c6 100644 --- a/app/History/Plan.hs +++ b/app/History/Plan.hs @@ -41,6 +41,8 @@ class Planable output where protoOf :: Proxy output -> Id output -> IO (Proto output) assume :: Proto output -> output propagate :: [Id output] -> output -> Proto output -> output + postprocess :: [Id output] -> output -> output + postprocess _ = id data Plan output = Plan (NE.NonEmpty (Id output)) [Task output] @@ -102,7 +104,7 @@ realise plan@(Plan ids tasks) = do output <- atomically $ do maybe retry pure . M.lookup id . (.outputs) =<< readTVar stateT killThread tid - pure output + pure (postprocess (NE.toList ids) output) step :: (Ord (Id output), Planable output) => |