From b18dbfe7920570c8234d58b7c9833ee643b47c4f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 29 Oct 2017 12:58:41 -0700
Subject: Use uncurry.
---
src/Text/Pandoc/App.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index a80c6ac44..f0e953d53 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -493,7 +493,7 @@ convertWithOpts opts = do
report $ Deprecated "markdown_github" "Use gfm instead."
setResourcePath (optResourcePath opts)
- mapM_ (\(n,v) -> setRequestHeader n v) (optRequestHeaders opts)
+ mapM_ (uncurry setRequestHeader) (optRequestHeaders opts)
doc <- sourceToDoc sources >>=
( (if isJust (optExtractMedia opts)
--
cgit v1.2.3