Make the tests pass

mmark-md · Dec 29, 2017 · cab1b1c · cab1b1c
1 parent 33fdb58
commit cab1b1c
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Text/MMark/Parser.hs b/Text/MMark/Parser.hs
@@ -456,9 +456,10 @@ pTable = do
   where
     cell = do
       startPos <- getPosition
-      chs      <- many . label "inline content" $
-        escapedChar <|> satisfy cellChar
-      return (IspSpan startPos (T.stripEnd $ T.pack chs))
+      txt      <- fmap (T.stripEnd . bakeText) . foldMany . choice $
+        [ (++) . reverse . T.unpack <$> hidden (string "\\|")
+        , (:) <$> label "inline content" (satisfy cellChar) ]
+      return (IspSpan startPos txt)
     cellChar x = x /= '|' && notNewline x
     rowWrapper p = do
       void (optional pipe)