From 527346cc7e2bc874092be2f6793001860e10a719 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Sat, 7 Nov 2020 19:38:03 +0100 Subject: Lint code in PRs and when committing to master (#6790) * Remove unused LANGUAGE pragmata * Apply HLint suggestions * Configure HLint to ignore some warnings * Lint code when committing to master --- src/Text/Pandoc/Readers/Docx/Combine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers/Docx') diff --git a/src/Text/Pandoc/Readers/Docx/Combine.hs b/src/Text/Pandoc/Readers/Docx/Combine.hs index 427a73dbe..46112af19 100644 --- a/src/Text/Pandoc/Readers/Docx/Combine.hs +++ b/src/Text/Pandoc/Readers/Docx/Combine.hs @@ -109,7 +109,7 @@ ilModifierAndInnards ils = case viewl $ unMany ils of Underline lst -> Just (Modifier underline, lst) Superscript lst -> Just (Modifier superscript, lst) Subscript lst -> Just (Modifier subscript, lst) - Link attr lst tgt -> Just (Modifier $ linkWith attr (fst tgt) (snd tgt), lst) + Link attr lst tgt -> Just (Modifier $ uncurry (linkWith attr) tgt, lst) Span attr lst -> Just (AttrModifier spanWith attr, lst) _ -> Nothing _ -> Nothing -- cgit v1.2.3