diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-11-22 22:41:12 -0500 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-11-22 22:41:12 -0500 |
| commit | 8c90f34d15a002d9269ef0371db7d6f7bf44168c (patch) | |
| tree | dcabe4bbe025e2ce4a2afaaace891dbdf68ee0f7 /src/Text/Pandoc/Readers | |
| parent | cc4ec3feeeff2d88582b516521c8c958ef509fc6 (diff) | |
| download | pandoc-8c90f34d15a002d9269ef0371db7d6f7bf44168c.tar.gz | |
Hlint suggestions.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Odt/Arrows/State.hs | 2 |
2 files changed, 1 insertions, 3 deletions
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 |