most of Tree.newt working

src/Lib/Types.idr

@@ -33,6 +33,13 @@ Show Icit where
 public export
 data BD = Bound | Defined
 
+public export
+Eq BD where
+  Bound == Bound = True
+  Defined == Defined = True
+  _ == _ = False
+
+
 Show BD where
   show Bound = "bnd"
   show Defined = "def"
@@ -219,6 +226,9 @@ getValFC (VU fc) = fc
 getValFC (VLit fc _) = fc
 
 
+public export
+HasFC Val where getFC = getValFC
+
 Show Closure
 
 covering export
@@ -450,6 +460,10 @@ debug x = do
   top <- get
   when top.verbose $ putStrLn x
 
+export
+info : FC -> String -> M ()
+info fc msg = putStrLn "INFO at \{show fc}: \{show msg}"
+
 ||| Version of debug that makes monadic computation lazy
 export
 debugM : M String -> M ()