@@ -1287,7 +1287,16 @@ parseAligns = try $ do
1287 return aligns'
1287 return aligns'
1289hline :: LP ()
1289hline :: LP ()
1290−hline = () <$ try (spaces' *> controlSeq "hline" <* spaces')
1290+hline = try $ do
1292+ controlSeq "hline" <|>
1294+ controlSeq "toprule" <|>
1295+ controlSeq "bottomrule" <|>
1296+ controlSeq "midrule"
1298+ optional $ bracketed (many1 (satisfy (/=']')))
1292lbreak :: LP ()
1301lbreak :: LP ()
1293lbreak = () <$ try (spaces' *> controlSeq "\\" <* spaces')
1302lbreak = () <$ try (spaces' *> controlSeq "\\" <* spaces')