From 9bc0d57b1461318e0d6d4542a4b20b2c68681a61 Mon Sep 17 00:00:00 2001
From: Vidar Holen <spam@vidarholen.net>
Date: Sun, 4 Nov 2012 00:19:13 -0700
Subject: [PATCH] Added warning for &;

---
 shpell.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/shpell.hs b/shpell.hs
index cb9f0bc..8638dfc 100644
--- a/shpell.hs
+++ b/shpell.hs
@@ -592,9 +592,12 @@ readHereString = do
 readNewlineList = many1 ((newline <|> carriageReturn) `thenSkip` spacing)
 readLineBreak = optional readNewlineList
 
+prop_roflol = isWarning readScript "a &; b"
+prop_roflol2 = isOk readScript "a & b"
 readSeparatorOp = do
     notFollowedBy (g_AND_IF <|> g_DSEMI)
-    f <- char ';' <|> char '&'
+    f <- (try $ char '&' >> spacing >> char ';' >> parseProblem ErrorC "It's not 'foo &; bar', just 'foo & bar'. " >> return '&') 
+            <|> char ';' <|> char '&'
     spacing
     return f