1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index c311ff158..02d3eacd2 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1184,10 +1184,12 @@ pipeTableRow = do
                       | otherwise   -> B.plain $ ils') cells'
 
 pipeTableHeaderPart :: Parser [Char] st Alignment
-pipeTableHeaderPart = do
+pipeTableHeaderPart = try $ do
+  skipMany spaceChar
   left <- optionMaybe (char ':')
   many1 (char '-')
   right <- optionMaybe (char ':')
+  skipMany spaceChar
   return $
     case (left,right) of
       (Nothing,Nothing) -> AlignDefault