@@ -1186,7 +1186,11 @@ pipeTableHeaderPart = do
11861186
11871187-- Succeed only if current line contains a pipe.
11881188scanForPipe :: Parser [Char] st ()
1189−scanForPipe = lookAhead (manyTill (satisfy (/='\n')) (char '|')) >> return ()
1189+scanForPipe = do
1190+ inp <- getInput
1191+ case break (\c -> c == '\n' || c == '|') inp of
1192+ (_,'|':_) -> return ()
1193+ _ -> mzero
11901194
11911195-- | Parse a table using 'headerParser', 'rowParser',
11921196-- 'lineParser', and 'footerParser'. Variant of the version in