Fix typo in parser

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