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

remove stale todos

Browse source
This commit is contained in:
rhiannon morris 2023-06-11 19:25:32 +02:00
parent 00e79d4264
commit 865772d512
3 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
examples/bool.quox
View file

@ -10,7 +10,6 @@ def boolω : 1.Bool → [ω.Bool] =
def if : 0.(A : ★) → 1.Bool → ω.A → ω.A → A = def if : 0.(A : ★) → 1.Bool → ω.A → ω.A → A =
λ A b t f ⇒ case1 b return A of { 'true ⇒ t; 'false ⇒ f }; λ A b t f ⇒ case1 b return A of { 'true ⇒ t; 'false ⇒ f };
-- [todo]: universe lifting
def0 If : 1.Bool → 0.★ → 0.★ → ★ = def0 If : 1.Bool → 0.★ → 0.★ → ★ =
λ b T F ⇒ case1 b return ★ of { 'true ⇒ T; 'false ⇒ F }; λ b T F ⇒ case1 b return ★ of { 'true ⇒ T; 'false ⇒ F };

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

@ -255,7 +255,6 @@ mutual
t => let ctx = MkNameContexts (map fromPatVar ds) (map fromPatVar ns) in t => let ctx = MkNameContexts (map fromPatVar ds) (map fromPatVar ns) in
throw $ AnnotationNeeded t.loc ctx t throw $ AnnotationNeeded t.loc ctx t
-- [todo] use SN if the var is named but still unused
private private
fromPTermTScope : {s : Nat} -> Context' PatVar d -> Context' PatVar n -> fromPTermTScope : {s : Nat} -> Context' PatVar d -> Context' PatVar n ->
SnocVect s PatVar -> PTerm -> SnocVect s PatVar -> PTerm ->

1
lib/Quox/Reduce.idr
View file

@ -14,7 +14,6 @@ import Control.Eff
%default total %default total
-- [fixme] rename this to Whnf and the interface to CanWhnf
public export public export
Whnf : List (Type -> Type) Whnf : List (Type -> Type)
Whnf = [NameGen, Except Error] Whnf = [NameGen, Except Error]