From 7b57942b3a10e51fdb7f78d276dc0187a22c3871 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Tue, 16 Aug 2022 23:10:06 +0100 Subject: Test labels, test for errors WIP --- src/Error.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Error.hs') diff --git a/src/Error.hs b/src/Error.hs index f61cea2..19f88fd 100644 --- a/src/Error.hs +++ b/src/Error.hs @@ -4,7 +4,10 @@ import Data.List (sort) import Text.Parsec (SourcePos, errorPos) import Text.Parsec.Error (ParseError, errorMessages, showErrorMessages) -data Error = Error String SourcePos deriving (Eq) +data Error + = TypeError String SourcePos + | Error String SourcePos + deriving (Eq) instance Show Error where show (Error message pos) = -- cgit v1.2.3