@@ -1184,10 +1184,12 @@ pipeTableRow = do
11841184 | otherwise -> B.plain $ ils') cells'
11851185
11861186pipeTableHeaderPart :: Parser [Char] st Alignment
1187−pipeTableHeaderPart = do
1187+pipeTableHeaderPart = try $ do
1188+ skipMany spaceChar
11881189 left <- optionMaybe (char ':')
11891190 many1 (char '-')
11901191 right <- optionMaybe (char ':')
1192+ skipMany spaceChar
11911193 return $
11921194 case (left,right) of
11931195 (Nothing,Nothing) -> AlignDefault