-- | Insert a value into the map of computed values.
putDone :: Ord k => k -> v -> Done k v ()
putDone = modify `dot` M.insert
putDone :: Ord k => k -> v -> Done k v ()
putDone = modify `dot` M.insert
putDone = modify `dot` M.insert