mostly parsing tweaks

src/Lib/Types.idr

@@ -156,6 +156,10 @@ Show Val where
   show (VPi str Explicit x y) = "(%pi (\{str} : \{show  x}). \{show  y})"
   show VU = "U"
 
+
+public export
+data Binder = Bind String BD Val
+
 public export
 Env : Type
 Env = List Val
@@ -250,6 +254,8 @@ record TopContext where
   metas : IORef MetaContext
   -- metas : TODO
 
+
+
 -- we'll use this for typechecking, but need to keep a TopContext around too.
 public export
 record Context where