32a3d4b · rowtype-yoga/purescript-native

examples/passing/List.purs+1−1

compare with golang

unifiedsplit

@@ -8,7 +8,7 @@ data List a

8isNull Nil = true

9isNull _ = false

10

11−concat (Nil) l2 = l2

11+concat Nil l2 = l2

12concat (Cons x) l2 = Cons

13 { head: x.head

14 , tail: concat x.tail l2

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

@@ -57,7 +57,7 @@ parseValueDeclaration =

57 <*> ((lexeme (indented *> P.char '=')) *> parseValue)

58

59parseTopLevelBinder :: P.Parsec String ParseState [Binder]

60−parseTopLevelBinder = return <$> P.try parseBinder <|> parens (commaSep parseBinder)

60+parseTopLevelBinder = return <$> P.try parseBinderNoParens <|> parens (commaSep parseBinder)

61

62parseExternDeclaration :: P.Parsec String ParseState Declaration

63parseExternDeclaration = P.try (reserved "foreign") *> indented *> (reserved "import") *> indented *>

src/Language/PureScript/Parser/Values.hs+15−1

@@ -15,7 +15,8 @@

15module Language.PureScript.Parser.Values (

16 parseValue,

17 parseGuard,

18− parseBinder

18+ parseBinder,

19+ parseBinderNoParens

19) where

20) where

20

21

21import Language.PureScript.Values

22import Language.PureScript.Values

@@ -265,6 +266,19 @@ parseBinder = (buildExpressionParser operators parseBinderAtom) P.<?> "expressio

265 where

266 where

266 operators = [ [ Infix ( C.lexeme (P.try $ C.indented *> C.reservedOp ":") >> return ConsBinder) AssocRight ] ]

267 operators = [ [ Infix ( C.lexeme (P.try $ C.indented *> C.reservedOp ":") >> return ConsBinder) AssocRight ] ]

267

268

269+parseBinderNoParens :: P.Parsec String ParseState Binder

270+parseBinderNoParens = P.choice (map P.try

271+ [ parseNullBinder

272+ , parseStringBinder

273+ , parseBooleanBinder

274+ , parseNumberBinder

275+ , parseNamedBinder

276+ , parseVarBinder

277+ , parseNullaryBinder

278+ , parseObjectBinder

279+ , parseArrayBinder

280+ , C.parens parseBinder ]) P.<?> "binder"

281+

268parseGuard :: P.Parsec String ParseState Guard

282parseGuard :: P.Parsec String ParseState Guard

269parseGuard = C.indented *> C.pipe *> C.indented *> parseValue

283parseGuard = C.indented *> C.pipe *> C.indented *> parseValue

270

284