Fixed ;-only bug
This commit is contained in:
		
							parent
							
								
									130e3bcd30
								
							
						
					
					
						commit
						4ea30b7411
					
				@ -230,7 +230,7 @@ See "Tests" for sample data.
 | 
				
			|||||||
 | 
					
 | 
				
			||||||
emptyLine :: GenParser Char st ()
 | 
					emptyLine :: GenParser Char st ()
 | 
				
			||||||
emptyLine = do many spacenonewline
 | 
					emptyLine = do many spacenonewline
 | 
				
			||||||
               optional $ char ';' >> spacenonewline >> many (noneOf "\n")
 | 
					               optional $ char ';' >> many (noneOf "\n")
 | 
				
			||||||
               newline
 | 
					               newline
 | 
				
			||||||
               return ()
 | 
					               return ()
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user