99d3fd8 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

Underscore syntax for object getters

commit99d3fd83ebfd14143f8251039ea41640b0a97be1 authorGary Burgess <gary.burgess@gmail.com> dateSun 8 Feb 2015, 22:59 (12 years ago) parent00086aa

2 files changed+6−6

unifiedsplit

examples/passing/ObjectGetter.purs+4−4

@@ -1,11 +1,11 @@

11module Main where

3−getX = (.x)

3+getX = _.x

55point = { x: 1, y: 0 }

77main = do

88 Debug.Trace.print $ getX point

9− Debug.Trace.trace $ (." 123 string Prop Name ") { " 123 string Prop Name ": "OK" }

10− Debug.Trace.trace $ ((.x) >>> (.y)) { x: { y: "Nested" } }

11− Debug.Trace.trace $ (.value) { value: "Done!" }

9+ Debug.Trace.trace $ _." 123 string Prop Name " { " 123 string Prop Name ": "OK" }

10+ Debug.Trace.trace $ (_.x >>> _.y) { x: { y: "Nested" } }

11+ Debug.Trace.trace $ _.value { value: "Done!" }

src/Language/PureScript/Parser/Declarations.hs+2−2

@@ -361,7 +361,7 @@ parseValueAtom = P.choice

361361-- Parse an expression in backticks or an operator

362362--

363363parseInfixExpr :: TokenParser Expr

364−parseInfixExpr = P.between tick tick parseValue

364+parseInfixExpr = P.between tick tick parseValue

365365 <|> Var <$> parseQualified (Op <$> symbol)

366366

367367parseOperatorSection :: TokenParser Expr

@@ -400,7 +400,7 @@ parseDoNotationElement = P.choice

400400 , P.try (DoNotationValue <$> parseValue) ]

401401

402402parseObjectGetter :: TokenParser Expr

403−parseObjectGetter = ObjectGetter <$> parens (dot *> C.indented *> (lname <|> stringLiteral))

403+parseObjectGetter = ObjectGetter <$> (underscore *> C.indented *> dot *> C.indented *> (lname <|> stringLiteral))

404404

405405-- |

406406-- Parse a value