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

remove Tighten stuff

Browse source
This commit is contained in:
rhiannon morris 2024-05-28 17:00:01 +02:00
parent f00c802336
commit 2bfe3250cf
15 changed files with 84 additions and 506 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/Quox/Parser/FromParser.idr
View file

@ -297,7 +297,7 @@ mutual
if all isUnused xs then
SN <$> fromPTermWith ds ns t
else
ST (fromSnocVect $ map fromPatVar xs) <$> fromPTermWith ds (ns ++ xs) t
SY (fromSnocVect $ map fromPatVar xs) <$> fromPTermWith ds (ns ++ xs) t
private
fromPTermDScope : {s : Nat} -> Context' PatVar d -> Context' PatVar n ->
@ -307,7 +307,7 @@ mutual
if all isUnused xs then
SN {f = \d => Term d n} <$> fromPTermWith ds ns t
else
DST (fromSnocVect $ map fromPatVar xs) <$> fromPTermWith (ds ++ xs) ns t
SY (fromSnocVect $ map fromPatVar xs) <$> fromPTermWith (ds ++ xs) ns t
export %inline