rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

fix some comments

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/Quox/Equal.idr
View file

@ -674,9 +674,6 @@ compareType defs ctx s t = do
parameters (loc : Loc) (ctx : TyContext d n) 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) parameters (mode : EqMode)
private private
fromInner : Eff EqualInner a -> Eff Equal a fromInner : Eff EqualInner a -> Eff Equal a

3
lib/Quox/Name.idr
View file

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