dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

fix type constructor quantities for short data decls

Browse Source
This commit is contained in:
Steve Dunham
2024-12-29 22:24:32 -08:00
parent 57a8fe9609
commit 8c7f0616d2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Lib/ProcessDecl.idr
View File

@@ -418,7 +418,7 @@ processDecl ns (Instance instfc ty decls) = do
processDecl ns (ShortData fc lhs sigs) = do processDecl ns (ShortData fc lhs sigs) = do
(nm,args) <- getArgs lhs [] (nm,args) <- getArgs lhs []
let ty = foldr (\ (fc,n), a => (RPi fc (BI fc n Explicit Many) (RU fc) a)) (RU fc) args let ty = foldr (\ (fc,n), a => (RPi fc (BI fc n Explicit Zero) (RU fc) a)) (RU fc) args
cons <- traverse (mkDecl args []) sigs cons <- traverse (mkDecl args []) sigs
let dataDecl = Data fc nm ty cons let dataDecl = Data fc nm ty cons
putStrLn "SHORTDATA" putStrLn "SHORTDATA"