From 2b4e5fcdc0c7d7ab681a0d3c58dcdb6ca9a7df8e Mon Sep 17 00:00:00 2001 From: VegOwOtenks Date: Thu, 13 Feb 2025 21:44:40 +0100 Subject: [PATCH] Improved enum parsing error messages --- src/Ubc/Parse/Syntax/Enumeration.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Ubc/Parse/Syntax/Enumeration.hs b/src/Ubc/Parse/Syntax/Enumeration.hs index 1d70d1c..d891217 100644 --- a/src/Ubc/Parse/Syntax/Enumeration.hs +++ b/src/Ubc/Parse/Syntax/Enumeration.hs @@ -4,7 +4,7 @@ module Ubc.Parse.Syntax.Enumeration ) where import qualified Ubc.Parse.Syntax.Language as UbcLanguage -import Text.Parsec (ParsecT, many) +import Text.Parsec (ParsecT, many, ()) type EnumerationMember = String data Enumeration = Enumeration @@ -16,7 +16,7 @@ data Enumeration = Enumeration parse :: Monad m => ParsecT String u m Enumeration parse = do UbcLanguage.reserved "enum" - identifier <- UbcLanguage.identifier + identifier <- UbcLanguage.identifier "enum identifier" values <- UbcLanguage.braces $ many UbcLanguage.identifier return $ Enumeration identifier values