From 7ac5c089d447c11bb9c9152bb30e1cff5b96267e Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Tue, 16 Aug 2022 23:15:20 +0100
Subject: Missing cases

---
 src/Error.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Error.hs b/src/Error.hs
index 19f88fd..b528f9e 100644
--- a/src/Error.hs
+++ b/src/Error.hs
@@ -12,6 +12,9 @@ data Error
 instance Show Error where
   show (Error message pos) =
     show pos ++ " error: " ++ message
+  -- XXX: can we do this differently?
+  show (TypeError message pos) =
+    show pos ++ " error: " ++ message
 
 showParserError :: ParseError -> String
 showParserError error =
-- 
cgit v1.2.3