From 728c7f577228c1b1dab91c81f91cdfb9f59ec5bd Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Tue, 21 Jan 2025 23:35:16 +0100 Subject: Fix typo in parser --- src/HSVIS/Parser.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/HSVIS') diff --git a/src/HSVIS/Parser.hs b/src/HSVIS/Parser.hs index 2110ca1..58f8907 100644 --- a/src/HSVIS/Parser.hs +++ b/src/HSVIS/Parser.hs @@ -801,14 +801,14 @@ pAlphaName0 bpos cs wrongcase = do | isLower (head s) -> case wrongcase of WCBacktrack -> faempty WCAssume -> noFail $ do - raiseAt startPos Error "Unexpected uppercase word at this position, assuming typo" + raiseAt startPos Error "Unexpected lowercase word at this position, assuming typo" return (toUpper (head s) : tail s, id) | otherwise -> return (s, id) Lowercase | isUpper (head s) -> case wrongcase of WCBacktrack -> faempty WCAssume -> noFail $ do - raiseAt startPos Error "Unexpected lowercase word at this position, assuming typo" + raiseAt startPos Error "Unexpected uppercase word at this position, assuming typo" return (toLower (head s) : tail s, id) | otherwise -> return (s, id) Don'tCare -- cgit v1.2.3-70-g09d2