github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

Remove unmarshal instance for Err, as we no longer need this

Browse Source
This commit is contained in:
Ayman Nadeem 2020-05-07 13:24:21 -04:00
parent c9f0deabdb
commit e48a0fe029
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
semantic-ast/src/AST/Unmarshal.hs
View File

@ -220,11 +220,6 @@ class UnmarshalField t where
-> [Node] -- ^ nodes
-> MatchM (t (f ann))
instance UnmarshalField Err where
unmarshalField _ _ [] = pure $ Fail "No items provided to unmarshalField."
unmarshalField _ _ [x] = Succeed <$> unmarshalNode x
unmarshalField d f _ = pure $ Fail ("type '" <> d <> "' expected zero or one nodes in field '" <> f <> "' but got multiple")
instance UnmarshalField Maybe where
unmarshalField _ _ [] = pure Nothing
unmarshalField _ _ [x] = Just <$> unmarshalNode x