@@ -244,7 +244,7 @@ preformatted = try $ do
244244 lookAhead newline
245245 contents <- manyTill anyChar (try (char '\n' >> many spaceChar >> string "}}}"
246246 >> many spaceChar >> newline))
247− if not (contents == "") && (head contents == '\n')
247+ if (contents /= "") && (head contents == '\n')
248248 then return $ B.codeBlockWith (makeAttr attrText) (tail contents)
249249 else return $ B.codeBlockWith (makeAttr attrText) contents
250250
@@ -310,10 +310,10 @@ mixedList' prevInd = do
310310 curLine <- listItemContent
311311 let listBuilder =
312312 if builder == "ul" then B.bulletList else B.orderedList
313− (subList, lowInd) <- (mixedList' curInd)
313+ (subList, lowInd) <- mixedList' curInd
314314 if lowInd >= curInd
315315 then do
316− (sameIndList, endInd) <- (mixedList' lowInd)
316+ (sameIndList, endInd) <- mixedList' lowInd
317317 let curList = combineList curLine subList ++ sameIndList
318318 if curInd > prevInd
319319 then return ([listBuilder curList], endInd)
@@ -388,7 +388,7 @@ bulletListMarkers = "ul" <$ (char '*' <|> char '-')
388388
389389orderedListMarkers :: PandocMonad m => VwParser m String
390390orderedListMarkers =
391− ("ol" <$choice ((orderedListMarker Decimal Period):(($OneParen)
391+ ("ol" <$choice (orderedListMarker Decimal Period:(($OneParen)
392392 <$> orderedListMarker
393393 <$> [Decimal, LowerRoman, UpperRoman, LowerAlpha, UpperAlpha])))
394394 <|> ("ol" <$ char '#')
@@ -435,7 +435,7 @@ tableRow = try $ do
435435
436436tableCell :: PandocMonad m => VwParser m Blocks
437437tableCell = try $
438− B.plain . trimInlines . mconcat <$> (manyTill inline' (char '|'))
438+ B.plain . trimInlines . mconcat <$> manyTill inline' (char '|')
439439
440440placeholder :: PandocMonad m => VwParser m ()
441441placeholder = try $
@@ -444,7 +444,7 @@ placeholder = try $
444444ph :: PandocMonad m => String -> VwParser m ()
445445ph s = try $ do
446446 many spaceChar >>string ('%':s) >> spaceChar
447− contents <- trimInlines . mconcat <$> (manyTill inline (lookAhead newline))
447+ contents <- trimInlines . mconcat <$> manyTill inline (lookAhead newline)
448448 --use lookAhead because of placeholder in the whitespace parser
449449 let meta' = return $ B.setMeta s contents nullMeta :: F Meta
450450 updateState $ \st -> st { stateMeta' = stateMeta' st <> meta' }
@@ -515,12 +515,12 @@ bareURL = try $ do
515515strong :: PandocMonad m => VwParser m Inlines
516516strong = try $ do
517517 s <- lookAhead $ between (char '*') (char '*') (many1 $ noneOf "*")
518− guard $ not ((head s) `elem` spaceChars)
519− &¬ ((last s) `elem` spaceChars)
518+ guard $ (head s `notElem` spaceChars)
519+ && (last s `notElem` spaceChars)
520520 char '*'
521521 contents <- mconcat <$>manyTill inline' (char '*'
522522 >> notFollowedBy alphaNum)
523− return $ B.spanWith ((makeId contents), [], []) mempty
523+ return $ B.spanWith (makeId contents, [], []) mempty
524524 <> B.strong contents
525525
526526makeId :: Inlines -> String
@@ -529,8 +529,8 @@ makeId i = concat (stringify <$> toList i)
529529emph :: PandocMonad m => VwParser m Inlines
530530emph = try $ do
531531 s <- lookAhead $ between (char '_') (char '_') (many1 $ noneOf "_")
532− guard $ not ((head s) `elem` spaceChars)
533− &¬ ((last s) `elem` spaceChars)
532+ guard $ (head s `notElem` spaceChars)
533+ && (last s `notElem` spaceChars)
534534 char '_'
535535 contents <- mconcat <$>manyTill inline' (char '_'
536536 >> notFollowedBy alphaNum)
@@ -539,7 +539,7 @@ emph = try $ do
539539strikeout :: PandocMonad m => VwParser m Inlines
540540strikeout = try $ do
541541 string "~~"
542− contents <- mconcat <$>many1Till inline' (string $ "~~")
542+ contents <- mconcat <$>many1Till inline' (string "~~")
543543 return $ B.strikeout contents
544544
545545code :: PandocMonad m => VwParser m Inlines
@@ -568,7 +568,7 @@ link = try $ do
568568 return $ B.link (procLink contents) "" (B.str contents)
569569 True -> do
570570 url <- manyTill anyChar $ char '|'
571− lab <- mconcat <$> (manyTill inline $ string "]]")
571+ lab <- mconcat <$> manyTill inline (string "]]")
572572 return $ B.link (procLink url) "" lab
573573
574574image :: PandocMonad m => VwParser m Inlines
@@ -584,7 +584,7 @@ images k
584584 return $ B.image (procImgurl imgurl) "" (B.str "")
585585 | k == 1 = do
586586 imgurl <- manyTill anyChar (char '|')
587− alt <- mconcat <$> (manyTill inline (try $ string "}}"))
587+ alt <- mconcat <$> manyTill inline (try $ string "}}")
588588 return $ B.image (procImgurl imgurl) "" alt
589589 | k == 2 = do
590590 imgurl <- manyTill anyChar (char '|')
@@ -600,8 +600,8 @@ images k
600600
601601procLink' :: String -> String
602602procLink' s
603− | (take 6 s) == "local:" = "file" ++ drop 5 s
604− | (take 6 s) == "diary:" = "diary/" ++ drop 6 s ++ ".html"
603+ | take 6 s == "local:" = "file" ++ drop 5 s
604+ | take 6 s == "diary:" = "diary/" ++ drop 6 s ++ ".html"
605605 | or ((`isPrefixOf` s) <$> [ "http:", "https:", "ftp:", "file:", "mailto:",
606606 "news:", "telnet:" ])
607607 = s
@@ -614,7 +614,7 @@ procLink s = procLink' x ++ y
614614 where (x, y) = break (=='#') s
615615
616616procImgurl :: String -> String
617−procImgurl s = if (take 6 s) == "local:" then "file" ++ drop 5 s else s
617+procImgurl s = if take 6 s == "local:" then "file" ++ drop 5 s else s
618618
619619inlineMath :: PandocMonad m => VwParser m Inlines
620620inlineMath = try $ do