From 8c90f34d15a002d9269ef0371db7d6f7bf44168c Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 22 Nov 2018 22:41:12 -0500 Subject: Hlint suggestions. --- src/Text/Pandoc/Readers/LaTeX.hs | 2 +- src/Text/Pandoc/Readers/Odt/Arrows/State.hs | 2 -- 2 files changed, 1 insertion(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 518f09bd9..09c724f9c 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -899,7 +899,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList , ("(", mathInline . toksToString <$> manyTill anyTok (controlSeq ")")) , ("[", mathDisplay . toksToString <$> manyTill anyTok (controlSeq "]")) , ("ensuremath", mathInline . toksToString <$> braced) - , ("texorpdfstring", (\x _ -> x) <$> tok <*> tok) + , ("texorpdfstring", const <$> tok <*> tok) , ("P", lit "¶") , ("S", lit "§") , ("$", lit "$") diff --git a/src/Text/Pandoc/Readers/Odt/Arrows/State.hs b/src/Text/Pandoc/Readers/Odt/Arrows/State.hs index 971442613..bb54d3197 100644 --- a/src/Text/Pandoc/Readers/Odt/Arrows/State.hs +++ b/src/Text/Pandoc/Readers/Odt/Arrows/State.hs @@ -39,8 +39,6 @@ faster and easier to implement this way. module Text.Pandoc.Readers.Odt.Arrows.State where import Prelude -import Prelude hiding (foldl, foldr) - import Control.Arrow import qualified Control.Category as Cat import Control.Monad -- cgit v1.2.3