stop throwing names away

lib/Quox/Whnf/Main.idr

@@ -145,7 +145,7 @@ CanWhnf Elim Interface.isRedexE where
     --
     -- [fixme] needs a real equality check between A‹0/𝑖› and A‹1/𝑖›
     case dsqueeze sty {f = Term} of
-      Left ([< i], ty) =>
+      ([< i], Left ty) =>
         case p `decEqv` q of
           -- coe (𝑖 ⇒ A) @p @p s ⇝ (s ∷ A‹p/𝑖›)
           Yes _   => whnf defs ctx $ Ann val (dsub1 sty p) coeLoc
@@ -155,7 +155,7 @@ CanWhnf Elim Interface.isRedexE where
               Left  pc  => pushCoe defs ctx i ty p q val coeLoc
               Right npc => pure $ Element (Coe (SY [< i] ty) p q val coeLoc)
                                           (tynf `orNo` npc `orNo` notYesNo npq)
-      Right ty =>
+      (_, Right ty) =>
         whnf defs ctx $ Ann val ty coeLoc
 
   whnf defs ctx (Comp ty p q val r zero one compLoc) =