From c23b7cd159af38f588ce4214d6ad37ceadf3c1a6 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Thu, 27 Jul 2017 23:32:59 +0200 Subject: Centralise errors (needed for positional errors #5) --- Sil/Util/Parser.dcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Sil/Util/Parser.dcl') diff --git a/Sil/Util/Parser.dcl b/Sil/Util/Parser.dcl index 361fa83..65b050e 100644 --- a/Sil/Util/Parser.dcl +++ b/Sil/Util/Parser.dcl @@ -7,9 +7,9 @@ from Control.Monad import class Monad from Data.Error import :: MaybeError from Data.Functor import class Functor -from Sil.Parse import :: ParseError +from Sil.Parse import :: Error -:: Parser a b = Parser ([a] -> (MaybeError ParseError b, [a])) +:: Parser a b = Parser ([a] -> (MaybeError Error b, [a])) instance Functor (Parser a) instance Applicative (Parser a) @@ -19,8 +19,8 @@ instance Alternative (Parser a) class name a :: a -> String instance name String -runParser :: (Parser a b) [a] -> (MaybeError ParseError b, [a]) -() :: (Parser a b) ParseError -> Parser a b +runParser :: (Parser a b) [a] -> (MaybeError Error b, [a]) +() :: (Parser a b) Error -> Parser a b fail :: Parser a b top :: Parser a a peek :: Parser a a -- cgit v1.2.3