@@ -219,17 +219,17 @@ parseAttr = try $ do
219219 return (k,v)
220220
221221tableStart :: MWParser ()
222−tableStart = try $ guardColumnOne *> sym "{|"
222+tableStart = try $ guardColumnOne *> skipSpaces *> sym "{|"
223223
224224tableEnd :: MWParser ()
225−tableEnd = try $ guardColumnOne *> sym "|}"
225+tableEnd = try $ guardColumnOne *> skipSpaces *> sym "|}"
226226
227227rowsep :: MWParser ()
228−rowsep = try $ guardColumnOne *> sym "|-" <* blanklines
228+rowsep = try $ guardColumnOne *> skipSpaces *> sym "|-" <* blanklines
229229
230230cellsep :: MWParser ()
231231cellsep = try $
232− (guardColumnOne <*
232+ (guardColumnOne *> skipSpaces <*
233233 ( (char '|' <* notFollowedBy (oneOf "-}+"))
234234 <|> (char '!')
235235 )
@@ -240,6 +240,7 @@ cellsep = try $
240240tableCaption :: MWParser Inlines
241241tableCaption = try $ do
242242 guardColumnOne
243+ skipSpaces
243244 sym "|+"
244245 skipMany spaceChar
245246 res <- anyLine >>= parseFromString (many inline)