@@ -42,13 +42,13 @@ yamlBsToMeta pMetaValue bstr = do
42 Right [] -> return . return $ mempty
42 Right [] -> return . return $ mempty
43 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
43 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
44 -> return . return $ mempty
44 -> return . return $ mempty
45− Right _ -> fail "expected YAML object"
45+ Right _ -> Prelude.fail "expected YAML object"
46 Left (yamlpos, err')
46 Left (yamlpos, err')
47 -> do pos <- getPosition
47 -> do pos <- getPosition
48 setPosition $ incSourceLine
48 setPosition $ incSourceLine
49 (setSourceColumn pos (YE.posColumn yamlpos))
49 (setSourceColumn pos (YE.posColumn yamlpos))
50 (YE.posLine yamlpos - 1)
50 (YE.posLine yamlpos - 1)
51− fail err'
51+ Prelude.fail err'
53fakePos :: YAML.Pos
53fakePos :: YAML.Pos
54fakePos = YAML.Pos (-1) (-1) 1 0
54fakePos = YAML.Pos (-1) (-1) 1 0
@@ -87,16 +87,16 @@ yamlBsToRefs pMetaValue idpred bstr =
87 sequence <$>
87 sequence <$>
88 mapM (yamlToMetaValue pMetaValue) (filter g ns)
88 mapM (yamlToMetaValue pMetaValue) (filter g ns)
90− fail "expecting sequence in 'references' field"
90+ Prelude.fail "expecting sequence in 'references' field"
91 Nothing ->
91 Nothing ->
92− fail "expecting 'references' field"
92+ Prelude.fail "expecting 'references' field"
94 Right [] -> return . return $ mempty
94 Right [] -> return . return $ mempty
95 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
95 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
96 -> return . return $ mempty
96 -> return . return $ mempty
97− Right _ -> fail "expecting YAML object"
97+ Right _ -> Prelude.fail "expecting YAML object"
98 Left (_pos, err')
98 Left (_pos, err')
99− -> fail err'
99+ -> Prelude.fail err'
102nodeToKey :: YAML.Node YE.Pos -> Maybe Text
102nodeToKey :: YAML.Node YE.Pos -> Maybe Text