@@ -1184,10 +1184,12 @@ pipeTableRow = do
1184 | otherwise -> B.plain $ ils') cells'
1184 | otherwise -> B.plain $ ils') cells'
1186pipeTableHeaderPart :: Parser [Char] st Alignment
1186pipeTableHeaderPart :: Parser [Char] st Alignment
1187−pipeTableHeaderPart = do
1187+pipeTableHeaderPart = try $ do
1188 left <- optionMaybe (char ':')
1189 left <- optionMaybe (char ':')
1189 many1 (char '-')
1190 many1 (char '-')
1190 right <- optionMaybe (char ':')
1191 right <- optionMaybe (char ':')
1191 return $
1193 return $
1192 case (left,right) of
1194 case (left,right) of
1193 (Nothing,Nothing) -> AlignDefault
1195 (Nothing,Nothing) -> AlignDefault