remove stale todos

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

View File

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

View File

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

View File

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