@@ -52,9 +52,9 @@ import Text.Pandoc.Parsing hiding ((<|>))
5252import Text.Pandoc.Walk
5353import qualified Data.Map as M
5454import Data.Maybe ( fromMaybe, isJust)
55−import Data.List ( intercalate, isInfixOf, isPrefixOf, isSuffixOf )
55+import Data.List ( intercalate, isInfixOf, isPrefixOf )
5656import Data.Char ( isDigit )
57−import Control.Monad ( liftM, guard, when, mzero, void, unless )
57+import Control.Monad ( guard, when, mzero, void, unless )
5858import Control.Arrow ((***))
5959import Control.Applicative ( (<|>) )
6060import Data.Monoid (First (..))
@@ -964,7 +964,7 @@ htmlInBalanced' tagname ts = fromMaybe [] $ go 0 ts
964964 go n (t@(TagClose tn'):rest) | tn' == tagname =
965965 (t :) <$> go (n - 1) rest
966966 go n (t:ts') = (t :) <$> go n ts'
967− go n [] = mzero
967+ go _ [] = mzero
968968
969969hasTagWarning :: [Tag String] -> Bool
970970hasTagWarning (TagWarning _:_) = True