fix some comments

This commit is contained in:
rhiannon morris 2023-09-17 19:10:52 +02:00
parent b85dcb5402
commit 244b33d786
2 changed files with 1 additions and 5 deletions

View file

@ -674,9 +674,6 @@ compareType defs ctx s t = do
parameters (loc : Loc) (ctx : TyContext d n)
-- [todo] only split on the dvars that are actually used anywhere in
-- the calls to `splits`
parameters (mode : EqMode)
private
fromInner : Eff EqualInner a -> Eff Equal a

View file

@ -178,8 +178,7 @@ mn base = do
modifyAt GEN S
pure $ MN base i
||| generate a fresh binding name with the given base and
||| (optionally) location `loc`
||| generate a fresh binding name with the given base and location `loc`
export
mnb : Has NameGen fs => PBaseName -> Loc -> Eff fs BindName
mnb base loc = pure $ BN !(mn base) loc