From cae155b095e5182cc1b342b21f7430e40afe7ba8 Mon Sep 17 00:00:00 2001
From: Christian Despres <50160106+despresc@users.noreply.github.com>
Date: Sun, 13 Sep 2020 10:48:14 -0400
Subject: Fix hlint suggestions, update hlint.yaml (#6680)
* Fix hlint suggestions, update hlint.yaml
Most suggestions were redundant brackets. Some required
LambdaCase.
The .hlint.yaml file had a small typo, and didn't ignore camelCase
suggestions in certain modules.
---
src/Text/Pandoc/Class/PandocMonad.hs | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
(limited to 'src/Text/Pandoc/Class')
diff --git a/src/Text/Pandoc/Class/PandocMonad.hs b/src/Text/Pandoc/Class/PandocMonad.hs
index 991aeed41..a454de1d0 100644
--- a/src/Text/Pandoc/Class/PandocMonad.hs
+++ b/src/Text/Pandoc/Class/PandocMonad.hs
@@ -433,7 +433,7 @@ getDefaultReferenceDocx = do
"word/theme/theme1.xml"]
let toLazy = BL.fromChunks . (:[])
let pathToEntry path = do
- epochtime <- (floor . utcTimeToPOSIXSeconds) <$> getCurrentTime
+ epochtime <- floor . utcTimeToPOSIXSeconds <$> getCurrentTime
contents <- toLazy <$> readDataFile ("docx/" ++ path)
return $ toEntry path epochtime contents
datadir <- getUserDataDir
@@ -536,7 +536,7 @@ getDefaultReferencePptx = do
]
let toLazy = BL.fromChunks . (:[])
let pathToEntry path = do
- epochtime <- (floor . utcTimeToPOSIXSeconds) <$> getCurrentTime
+ epochtime <- floor . utcTimeToPOSIXSeconds <$> getCurrentTime
contents <- toLazy <$> readDataFile ("pptx/" ++ path)
return $ toEntry path epochtime contents
datadir <- getUserDataDir
@@ -568,11 +568,11 @@ readDataFile fname = do
-- | Read file from from Cabal data directory.
readDefaultDataFile :: PandocMonad m => FilePath -> m B.ByteString
readDefaultDataFile "reference.docx" =
- (B.concat . BL.toChunks . fromArchive) <$> getDefaultReferenceDocx
+ B.concat . BL.toChunks . fromArchive <$> getDefaultReferenceDocx
readDefaultDataFile "reference.pptx" =
- (B.concat . BL.toChunks . fromArchive) <$> getDefaultReferencePptx
+ B.concat . BL.toChunks . fromArchive <$> getDefaultReferencePptx
readDefaultDataFile "reference.odt" =
- (B.concat . BL.toChunks . fromArchive) <$> getDefaultReferenceODT
+ B.concat . BL.toChunks . fromArchive <$> getDefaultReferenceODT
readDefaultDataFile fname =
#ifdef EMBED_DATA_FILES
case lookup (makeCanonical fname) dataFiles of
--
cgit v1.2.3