diff options
| -rw-r--r-- | src/HSVIS/Parser.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |