Fix compiler warning.

This commit is contained in:
John MacFarlane 2018-08-18 09:09:43 -07:00
parent 42f4632e60
commit bebfda62dc

View file

@ -746,7 +746,7 @@ dosiunitx = do
siUnit :: PandocMonad m => LP m Inlines
siUnit = do
Tok _ (CtrlSeq name) cmd <- anyControlSeq
Tok _ (CtrlSeq name) _ <- anyControlSeq
if name == "square"
then do
unit <- grouped (mconcat <$> many1 siUnit) <|> siUnit <|> tok