Skip to content

Commit

Permalink
Restore todo comment
Browse files Browse the repository at this point in the history
  • Loading branch information
UlfNorell committed Feb 27, 2024
1 parent 2928343 commit 668822a
Showing 1 changed file with 5 additions and 0 deletions.
5 changes: 5 additions & 0 deletions src/full/Agda/TypeChecking/Monad/Signature.hs
Original file line number Diff line number Diff line change
Expand Up @@ -1086,6 +1086,11 @@ getMutual_ = \case
_ -> Nothing

-- | Set the mutually recursive identifiers.
--
-- TODO: This produces data of quadratic size (which has to be processed upon serialization).
-- Presumably qs is usually short, but in some cases (for instance for generated code) it may be
-- long. It would be better to assign a unique identifier to each SCC, and store the names
-- separately.
setMutual :: QName -> [QName] -> TCM ()
setMutual d m = modifySignature $ updateDefinition d $ updateTheDef $ \ def ->
case def of
Expand Down

0 comments on commit 668822a

Please sign in to comment.