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

fix Parse.Err

Browse Source
This commit is contained in:
Ayman Nadeem 2020-04-28 10:47:15 -04:00
parent 324ecc3110
commit 41eaf07526
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-ast/src/AST/Parse.hs
View File

@ -14,5 +14,5 @@ import GHC.Generics (Generic, Generic1)
-- data If f a = If { ann :: a, condition :: f (Expr f a), consequence :: f (Stmt f a), alternative :: f (Stmt f a) } -- data If f a = If { ann :: a, condition :: f (Expr f a), consequence :: f (Stmt f a), alternative :: f (Stmt f a) }
-- @ -- @
-- When the parse fails, the f will be substituted with Err -- When the parse fails, the f will be substituted with Err
data Err a = ParseFail { ann :: a } | ParseSucceed { ann :: a } data Err a = Fail String | Succeed a
deriving (Eq, Foldable, Functor, Generic, Generic1, Ord, Show, Traversable) deriving (Eq, Foldable, Functor, Generic, Generic1, Ord, Show, Traversable)