github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00
Code Issues Projects Releases Wiki Activity

Redefine Rule to always be productive.

Browse Source
This commit is contained in:
Rob Rix 2017-04-05 19:46:41 -04:00
parent 315c5e6e9b
commit a9fb2b6759
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Language/Ruby/Syntax.hs
View File

@ -26,14 +26,14 @@ type Syntax = Union
type Assignment symbol = Freer (AssignmentF symbol)
data AssignmentF symbol a where
Rule :: symbol -> AssignmentF symbol a
Rule :: symbol -> a -> AssignmentF symbol a
Content :: AssignmentF symbol ByteString
Children :: AssignmentF symbol [a]
Child :: AssignmentF symbol a
And :: a -> a -> AssignmentF symbol a
rule :: symbol -> Assignment symbol a
rule symbol = Rule symbol `Then` return
rule :: symbol -> Assignment symbol a -> Assignment symbol a
rule symbol = wrap . Rule symbol
content :: Assignment symbol ByteString
content = Content `Then` return
@ -55,13 +55,13 @@ data Grammar = Program | Uninterpreted | BeginBlock | EndBlock | Undef | Alias |
-- | Assignment from AST in Ruby’s grammar onto a program in Ruby’s syntax.
assignment :: Assignment Grammar (Program Syntax (Maybe ()))
assignment = foldr (>>) (pure Nothing) <$> (rule Program <> children)
assignment = foldr (>>) (pure Nothing) <$> (rule Program children)
comment :: Assignment Grammar (Program Syntax a)
comment = wrapU . Comment.Comment <$> (rule Comment <> content)
comment = wrapU . Comment.Comment <$> (rule Comment content)
if' :: Assignment Grammar (Program Syntax a)
if' = rule If <> (wrapU <$> (Statement.If <$> child <*> child <*> child))
if' = rule If (wrapU <$> (Statement.If <$> child <*> child <*> child))
instance Semigroup (Assignment symbol a) where