git.iko.soy/typeable/pandoc
on master help sign in
Qualify some uses of fail to avoid ambiguity.
commit2566ff662473b4c4095ffe5d3bdbb0325a70b6a3 authorJohn MacFarlane <jgm@berkeley.edu> dateThu 8 Oct 2020, 09:11 (6 years ago) parentd1e1898
1 file changed+6−6
src/Text/Pandoc/Readers/Metadata.hs+6−6
src/Text/Pandoc/Readers/Metadata.hs+6−6
@@ -42,13 +42,13 @@ yamlBsToMeta pMetaValue bstr = do
4242 Right [] -> return . return $ mempty
4343 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
4444 -> return . return $ mempty
45− Right _ -> fail "expected YAML object"
45+ Right _ -> Prelude.fail "expected YAML object"
4646 Left (yamlpos, err')
4747 -> do pos <- getPosition
4848 setPosition $ incSourceLine
4949 (setSourceColumn pos (YE.posColumn yamlpos))
5050 (YE.posLine yamlpos - 1)
51− fail err'
51+ Prelude.fail err'
5252
5353fakePos :: YAML.Pos
5454fakePos = YAML.Pos (-1) (-1) 1 0
@@ -87,16 +87,16 @@ yamlBsToRefs pMetaValue idpred bstr =
8787 sequence <$>
8888 mapM (yamlToMetaValue pMetaValue) (filter g ns)
8989 Just _ ->
90− fail "expecting sequence in 'references' field"
90+ Prelude.fail "expecting sequence in 'references' field"
9191 Nothing ->
92− fail "expecting 'references' field"
92+ Prelude.fail "expecting 'references' field"
9393
9494 Right [] -> return . return $ mempty
9595 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
9696 -> return . return $ mempty
97− Right _ -> fail "expecting YAML object"
97+ Right _ -> Prelude.fail "expecting YAML object"
9898 Left (_pos, err')
99− -> fail err'
99+ -> Prelude.fail err'
100100
101101
102102nodeToKey :: YAML.Node YE.Pos -> Maybe Text