Fixed position of &; message

Shpell/Parser.hs

@@ -603,8 +603,14 @@ prop_roflol = isWarning readScript "a &; b"
 prop_roflol2 = isOk readScript "a & b"
 readSeparatorOp = do
     notFollowedBy (g_AND_IF <|> g_DSEMI)
-    f <- (try $ char '&' >> spacing >> char ';' >> parseProblem ErrorC "It's not 'foo &; bar', just 'foo & bar'. " >> return '&')
+    f <- (try $ do
-            <|> char ';' <|> char '&'
+                    char '&'
+                    spacing
+                    pos <- getPosition
+                    char ';'
+                    parseProblemAt pos ErrorC "It's not 'foo &; bar', just 'foo & bar'. "
+                    return '&'
+            ) <|> char ';' <|> char '&'
     spacing
     return f