Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fixed some linter warnings.

Browse source
This commit is contained in:
John MacFarlane 2016-02-20 22:16:39 -08:00
parent 29706ee02d
commit 9693de7f59
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/HTML.hs
View file

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