idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-16 15:52:43 +03:00
Code Issues Projects Releases Wiki Activity

[ docs ] Add record field docstrings to the RF-name as well

Browse Source 
A record field can add two names to the context, a UN-name and an
RF-name.  The docstring is now saved for both names, so that it can
always be found when one of the names can be resolved.

Previously the docstring was only saved for the UN-name which led to the
docs missing when looking up the (.fieldName) version, e.g. when listing
docs for the record type.
This commit is contained in:
Johann Rudloff 2021-06-30 20:18:05 +02:00 committed by G. Allais
parent af9f72466f
commit 7c1ab56ca0
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Idris/Desugar.idr
View File

@ -770,10 +770,15 @@ mutual
Core IField Core IField
desugarField ps ns (MkField fc doc rig p n ty) desugarField ps ns (MkField fc doc rig p n ty)
= do addDocStringNS ns n doc = do addDocStringNS ns n doc
addDocStringNS ns (toRF n) doc
syn <- get Syn syn <- get Syn
pure (MkIField fc rig !(traverse (desugar AnyExpr ps) p ) pure (MkIField fc rig !(traverse (desugar AnyExpr ps) p )
n !(bindTypeNames fc (usingImpl syn) n !(bindTypeNames fc (usingImpl syn)
ps !(desugar AnyExpr ps ty))) ps !(desugar AnyExpr ps ty)))
where
toRF : Name -> Name
toRF (UN n) = RF n
toRF n = n
export export
desugarFnOpt : {auto s : Ref Syn SyntaxInfo} -> desugarFnOpt : {auto s : Ref Syn SyntaxInfo} ->