diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index 5f19971db..0d1a52f57 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -230,7 +230,7 @@ See "Tests" for sample data.
 
 emptyLine :: GenParser Char st ()
 emptyLine = do many spacenonewline
-               optional $ char ';' >> spacenonewline >> many (noneOf "\n")
+               optional $ char ';' >> many (noneOf "\n")
                newline
                return ()