5cc3031 · rowtype-yoga/purescript-native

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

Field puns, fix #921

commit5cc3031433473b948c6ee5169259b8886a1c032b authorPhil Freeman <paf31@cantab.net> dateMon 2 Nov 2015, 17:04 (11 years ago) parentde7b3dd

2 files changed+15−5

unifiedsplit

examples/passing/FieldPuns.pursnew file+8

@@ -0,0 +1,8 @@

1+module Main where

3+import Prelude

4+import Control.Monad.Eff.Console

6+greet { greeting, name } = log $ greeting <> ", " <> name <> "."

8+main = greet { greeting: "Hello", name: "World" }

src/Language/PureScript/Parser/Declarations.hs+7−5

@@ -517,11 +517,13 @@ parseNullBinder :: TokenParser Binder

517517parseNullBinder = underscore *> return NullBinder

518518

519519parseIdentifierAndBinder :: TokenParser (String, Binder)

520−parseIdentifierAndBinder = do

521− name <- lname <|> stringLiteral

522− C.indented *> (equals <|> colon)

523− binder <- C.indented *> parseBinder

524− return (name, binder)

520+parseIdentifierAndBinder =

521+ do name <- lname

522+ b <- P.option (VarBinder (Ident name)) rest

523+ return (name, b)

524+ <|> (,) <$> stringLiteral <*> rest

525+ where

526+ rest = C.indented *> (equals <|> colon) *> C.indented *> parseBinder

525527

526528-- |

527529-- Parse a binder