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

Minor changes

Browse Source
This commit is contained in:
Steve Dunham
2026-01-31 12:52:01 -08:00
parent f3a18fa658
commit eed5c09508
4 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@@ -11,7 +11,9 @@ all: newt.js
REV=$(shell git rev-parse --short HEAD) REV=$(shell git rev-parse --short HEAD)
src/Revision.newt: .PHONY src/Revision.newt: .PHONY
echo "module Revision\nimport Prelude\ngitRevision : String\ngitRevision = \"${REV}\"" > src/Revision.newt echo "module Revision\nimport Prelude\ngitRevision : String\ngitRevision = \"${REV}\"" > src/Revision.newt.new
cmp src/Revision.newt.new src/Revision.newt || cp src/Revision.newt.new src/Revision.newt
rm -f src/Revision.newt.new
newt.js: ${SRCS} src/Revision.newt newt.js: ${SRCS} src/Revision.newt
-rm build/* >/dev/null -rm build/* >/dev/null

4
TODO.md
View File

@@ -1,9 +1,11 @@
## TODO ## TODO
- [ ] change "in prefix position" and "trailing operator" errors to do sections
- [ ] maybe add fat arrows, I keep wanting to type them, `{{...}}` is a little ugly - [ ] maybe add fat arrows, I keep wanting to type them, `{{...}}` is a little ugly
- There may be ambiguity issues - There may be ambiguity issues at the parsing level, but we don't have typecase, so...
- [x] get some names on add missing cases (if not too difficult) - [x] get some names on add missing cases (if not too difficult)
- [ ] Implement "add missing cases" for playground
- [x] add optional types to case `case xxx : Maybe Int of ...` - [x] add optional types to case `case xxx : Maybe Int of ...`
- [x] "Expected keyword" at `\ a ->` should be error at the `->` - [x] "Expected keyword" at `\ a ->` should be error at the `->`
- [x] Show Either - [x] Show Either

3
src/Lib/Elab.newt
View File

@@ -669,8 +669,6 @@ primType fc nm = do
Just (MkEntry _ name ty (PrimTCon _) _) => pure $ VRef fc name Lin Just (MkEntry _ name ty (PrimTCon _) _) => pure $ VRef fc name Lin
_ => error fc "Primitive type \{show nm} not in scope" _ => error fc "Primitive type \{show nm} not in scope"
infer : Context -> Raw -> M (Tm × Val)
data Bind = MkBind String Icit Val data Bind = MkBind String Icit Val
instance Show Bind where instance Show Bind where
@@ -1431,6 +1429,7 @@ updateRec ctx fc clauses arg ty = do
getTele Nothing v = error (getFC v) "Expected a pi type, got \{show v}" getTele Nothing v = error (getFC v) "Expected a pi type, got \{show v}"
getTele _ v = error (getFC v) "Expected a record type, got \{show v}" getTele _ v = error (getFC v) "Expected a record type, got \{show v}"
infer : Context -> Raw -> M (Tm × Val)
check ctx tm ty = do check ctx tm ty = do
ty' <- forceType ctx.env ty ty' <- forceType ctx.env ty

7
src/Prelude.newt
View File

@@ -716,6 +716,13 @@ instance Functor IO where
uncurry : ∀ a b c. (a → b → c) → (a × b) → c uncurry : ∀ a b c. (a → b → c) → (a × b) → c
uncurry f (a,b) = f a b uncurry f (a,b) = f a b
curry : ∀ a b c. (a × b → c) → (a → b → c)
curry f a b = f (a,b)
-- TODO Belongs in prelude, but I need to rename a function in Lib.Compile (or let local win over imports)
-- apply : ∀ a b. (a → b) → a → b
-- apply f a = f a
-- TODO Idris has a tail recursive version of this -- TODO Idris has a tail recursive version of this
instance Applicative List where instance Applicative List where
return a = a :: Nil return a = a :: Nil