Q.S.T.Reduce ⇒ Q.Reduce and make it use Definition directly

2023-02-19 18:22:53 +01:00 · 2023-02-19 18:22:53 +01:00 · 7895fa37e5
commit 7895fa37e5
parent ae43c324c0
8 changed files with 43 additions and 97 deletions
--- a/tests/TypingImpls.idr
+++ b/tests/TypingImpls.idr
@ -50,8 +50,8 @@ PrettyHL q => ToInfo (Error q) where
     ("left",  prettyStr True p),
     ("right", prettyStr True q)]
  toInfo (NotType ty) =
-    [("type",   "NotType"),
-     ("actual", prettyStr True ty)]
+    [("type", "NotType"),
+     ("got",  prettyStr True ty)]
  toInfo (WrongType ty s t) =
    [("type",  "WrongType"),
     ("ty",    prettyStr True ty),