diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-10-08 09:11:25 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-10-08 09:12:29 -0700 |
| commit | 2566ff662473b4c4095ffe5d3bdbb0325a70b6a3 (patch) | |
| tree | 62e4ab401d0c98c87e3668034eb5e9e2aff8bef9 /src/Text/Pandoc/Readers/Metadata.hs | |
| parent | d1e1898c5226d334f49fafb829f79508161108dc (diff) | |
| download | pandoc-2566ff662473b4c4095ffe5d3bdbb0325a70b6a3.tar.gz | |
Qualify some uses of fail to avoid ambiguity.
Diffstat (limited to 'src/Text/Pandoc/Readers/Metadata.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Metadata.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/Metadata.hs b/src/Text/Pandoc/Readers/Metadata.hs index 76fbd8110..0d49a7fa8 100644 --- a/src/Text/Pandoc/Readers/Metadata.hs +++ b/src/Text/Pandoc/Readers/Metadata.hs @@ -42,13 +42,13 @@ yamlBsToMeta pMetaValue bstr = do Right [] -> return . return $ mempty Right [YAML.Doc (YAML.Scalar _ YAML.SNull)] -> return . return $ mempty - Right _ -> fail "expected YAML object" + Right _ -> Prelude.fail "expected YAML object" Left (yamlpos, err') -> do pos <- getPosition setPosition $ incSourceLine (setSourceColumn pos (YE.posColumn yamlpos)) (YE.posLine yamlpos - 1) - fail err' + Prelude.fail err' fakePos :: YAML.Pos fakePos = YAML.Pos (-1) (-1) 1 0 @@ -87,16 +87,16 @@ yamlBsToRefs pMetaValue idpred bstr = sequence <$> mapM (yamlToMetaValue pMetaValue) (filter g ns) Just _ -> - fail "expecting sequence in 'references' field" + Prelude.fail "expecting sequence in 'references' field" Nothing -> - fail "expecting 'references' field" + Prelude.fail "expecting 'references' field" Right [] -> return . return $ mempty Right [YAML.Doc (YAML.Scalar _ YAML.SNull)] -> return . return $ mempty - Right _ -> fail "expecting YAML object" + Right _ -> Prelude.fail "expecting YAML object" Left (_pos, err') - -> fail err' + -> Prelude.fail err' nodeToKey :: YAML.Node YE.Pos -> Maybe Text |