add annotation param to Expr

nightmare breaking changes. never listening to the "i'll do it later if i REALLY need it" part of my brain again.

add annotation param to Expr

src/TI.hs

@@ -28,6 +28,10 @@ import Core.Examples
 import Core
 ----------------------------------------------------------------------------------
 
+hdbgProg = undefined
+
+{-
+
 data TiState = TiState Stack Dump TiHeap Env Stats
     deriving Show
 
@@ -611,3 +615,5 @@ gc st@(TiState s d h g sts) = TiState s d h' g sts
         marked = h & appEndo (foldMap Endo $ markFrom <$> as)
         h' = scanHeap marked
 
+--}
+