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/Metadata.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers/Metadata.hs') diff --git a/src/Text/Pandoc/Readers/Metadata.hs b/src/Text/Pandoc/Readers/Metadata.hs index 0d49a7fa8..b9a8653d5 100644 --- a/src/Text/Pandoc/Readers/Metadata.hs +++ b/src/Text/Pandoc/Readers/Metadata.hs @@ -70,7 +70,7 @@ yamlBsToRefs :: PandocMonad m -> ParserT Text ParserState m (F [MetaValue]) yamlBsToRefs pMetaValue idpred bstr = case YAML.decodeNode' YAML.failsafeSchemaResolver False False bstr of - Right (YAML.Doc o@(YAML.Mapping _ _ _):_) + Right (YAML.Doc o@YAML.Mapping{}:_) -> case lookupYAML "references" o of Just (YAML.Sequence _ _ ns) -> do let g n = case lookupYAML "id" n of -- cgit v1.2.3