Use uncurry.
commitb18dbfe7920570c8234d58b7c9833ee643b47c4f
authorJohn MacFarlane <jgm@berkeley.edu>
dateSun 29 Oct 2017, 12:58 (9 years ago)
parent8e5e874
src/Text/Pandoc/App.hs+1−1
@@ -493,7 +493,7 @@ convertWithOpts opts = do
493493 report $ Deprecated "markdown_github" "Use gfm instead."
494494
495495 setResourcePath (optResourcePath opts)
496− mapM_ (\(n,v) -> setRequestHeader n v) (optRequestHeaders opts)
496+ mapM_ (uncurry setRequestHeader) (optRequestHeaders opts)
497497
498498 doc <- sourceToDoc sources >>=
499499 ( (if isJust (optExtractMedia opts)