e77d08e · typeable/pandoc

git.iko.soy/typeable/pandoc

hlint suggestions.

commite77d08e439e727111b05a832531fdf86d03d2436 authorJohn MacFarlane <jgm@berkeley.edu> dateFri 27 Oct 2017, 21:07 (9 years ago) parent7a924ec

4 files changed+7−8

compare with master

unifiedsplit

src/Text/Pandoc/BCP47.hs+1−1 src/Text/Pandoc/CSV.hs+1−1 src/Text/Pandoc/Class.hs+4−5 src/Text/Pandoc/Highlighting.hs+1−1

src/Text/Pandoc/BCP47.hs+1−1

@@ -120,6 +120,6 @@ parseBCP47 lang =

120120 P.char 'x'

121121 P.char '-'

122122 cs <- P.many1 $ P.satisfy (\c -> isAscii c && isAlphaNum c)

123− guard $ length cs >= 1 && length cs <= 8

123+ guard $ not (null cs) && length cs <= 8

124124 let var = "x-" ++ cs

125125 return $ map toLower var

src/Text/Pandoc/CSV.hs+1−1

@@ -79,7 +79,7 @@ pCSVQuotedCell opts = do

7979 return $ T.pack res

8080

8181escaped :: CSVOptions -> Parser Char

82−escaped opts = do

82+escaped opts =

8383 case csvEscape opts of

8484 Nothing -> try $ char (csvQuote opts) >> char (csvQuote opts)

8585 Just c -> try $ char c >> noneOf "\r\n"

src/Text/Pandoc/Class.hs+4−5

@@ -121,10 +121,9 @@ import Data.ByteString.Base64 (decodeLenient)

121121import Network.URI ( escapeURIString, nonStrictRelativeTo,

122122 unEscapeString, parseURIReference, isAllowedInURI,

123123 parseURI, URI(..) )

124−import Network.HTTP.Client (httpLbs, responseBody, responseHeaders,

125− Request(port,host,requestHeaders))

126−import Network.HTTP.Client (parseRequest)

127−import Network.HTTP.Client (newManager)

124+import Network.HTTP.Client

125+ (httpLbs, responseBody, responseHeaders,

126+ Request(port, host, requestHeaders), parseRequest, newManager)

128127import Network.HTTP.Client.Internal (addProxy)

129128import Network.HTTP.Client.TLS (tlsManagerSettings)

130129import System.Environment (getEnv)

@@ -432,7 +431,7 @@ getTranslations = do

432431 report $ CouldNotLoadTranslations (renderLang lang)

433432 $ case e of

434433 PandocCouldNotFindDataFileError _ ->

435− ("data file " ++ fallbackFile ++ " not found")

434+ "data file " ++ fallbackFile ++ " not found"

436435 _ -> ""

437436 -- make sure we don't try again...

438437 modifyCommonState $ \st -> st{ stTranslations = Nothing }

src/Text/Pandoc/Highlighting.hs+1−1

@@ -91,7 +91,7 @@ highlight syntaxmap formatter (_, classes, keyvals) rawCode =

9191 , traceOutput = False }

9292 classes' = map T.pack classes

9393 rawCode' = T.pack rawCode

94− in case msum (map ((`lookupSyntax` syntaxmap)) classes') of

94+ in case msum (map (`lookupSyntax` syntaxmap) classes') of

9595 Nothing

9696 | numberLines fmtOpts -> Right

9797 $ formatter fmtOpts{ codeClasses = [],