github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 04:41:47 +03:00
Code Issues Projects Releases Wiki Activity

Contextualize within pairs.

Browse Source
This commit is contained in:
Rob Rix 2017-08-14 12:01:28 -04:00
parent 5fc327ba32
commit 48d9a9d247
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Python/Syntax.hs
View File

@ -13,7 +13,7 @@ import Data.Functor.Classes.Eq.Generic
import Data.Functor.Classes.Show.Generic import Data.Functor.Classes.Show.Generic
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Data.Record import Data.Record
import Data.Syntax (emptyTerm, handleError, makeTerm) import Data.Syntax (contextualize, emptyTerm, handleError, makeTerm)
import qualified Data.Syntax as Syntax import qualified Data.Syntax as Syntax
import Data.Syntax.Assignment hiding (Assignment, Error) import Data.Syntax.Assignment hiding (Assignment, Error)
import qualified Data.Syntax.Assignment as Assignment import qualified Data.Syntax.Assignment as Assignment
@ -357,7 +357,7 @@ dictionary :: Assignment
dictionary = makeTerm <$> symbol Dictionary <*> children (Literal.Hash <$> many expression) dictionary = makeTerm <$> symbol Dictionary <*> children (Literal.Hash <$> many expression)
pair :: Assignment pair :: Assignment
pair = makeTerm <$> symbol Pair <*> children (Literal.KeyValue <$ many comment <*> expression <* many comment <*> expression <* many comment) pair = makeTerm <$> symbol Pair <*> children (Literal.KeyValue <$> contextualize comment expression <*> contextualize comment expression <* many comment)
list' :: Assignment list' :: Assignment
list' = makeTerm <$> symbol List <*> children (Literal.Array <$> many expression) list' = makeTerm <$> symbol List <*> children (Literal.Array <$> many expression)