rowtype-yoga/purescript-docs-search
1
0
Fork 0
mirror of https://github.com/rowtype-yoga/purescript-docs-search.git synced 2024-09-11 12:35:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

minor parser improvements

Browse Source
This commit is contained in:
klntsky 2019-06-29 02:31:14 +03:00
parent 62bd942bf0
commit 426f236448
No known key found for this signature in database
GPG Key ID: 612281040BC67F9E
2 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Spago/Search/TypeQuery.purs
View File

@ -51,7 +51,7 @@ typeQueryParser = fix \typeQuery ->
record = QApp (QConst "Record") <$> (string "{" *> rowFields <* string "}")
binders =
string "forall" *> some space *> sepEndBy1 ident (some space) <* string "." <* skipSpaces
string "forall" *> some space *> sepEndBy1 ident skipSpaces <* string "." <* skipSpaces
for_all = QForAll <$> binders <*> typeQuery
@ -74,7 +74,7 @@ typeQueryParser = fix \typeQuery ->
foldr1 QFun <$> sepBy1 apps (string "->" *> skipSpaces)
constrained =
QConstraint <$> (upperCaseIdent <* some space) <*>
QConstraint <$> (upperCaseIdent <* skipSpaces) <*>
(sepEndBy ((QVar <$> ident) <|> parens) (many space) <* string "=>" <* skipSpaces) <*>
typeQuery
in

33
test/Test/TypeQuery.purs
View File

@ -162,6 +162,39 @@ tests = do
(QApp (QVar "f")
(QApp (QConst "List") (QVar "a")))))))
test "test #28" do
let input = "forall f a. Alternative f => Lazy(f (List a))=>f a -> f (List a)"
assertRight (parseTypeQuery input) ((QForAll (nl "f" ["a"]))
(QConstraint "Alternative" (l [QVar "f"])
(QConstraint "Lazy" (l [QApp (QVar "f")
(QApp (QConst "List") (QVar "a"))])
(QFun (QApp (QVar "f") (QVar "a"))
(QApp (QVar "f")
(QApp (QConst "List") (QVar "a")))))))
test "test #29" do
let input = "{a::Int,b::Int}"
assertRight (parseTypeQuery input)
(QApp (QConst "Record") (QRow (List.fromFoldable [ Tuple "a" (QConst "Int"), Tuple "b" (QConst "Int")])))
test "test #30" do
let input = "{record''' :: Int}"
assertRight (parseTypeQuery input)
(QApp (QConst "Record") (QRow (List.fromFoldable [ Tuple "record'''" (QConst "Int")])))
test "test #31" do
let input = "(row''' :: Int)"
assertRight (parseTypeQuery input)
(QRow (List.fromFoldable [ Tuple "row'''" (QConst "Int")]))
test "test #32" do
let input = "(row1 :: Int, row2 :: (),row3::(row4::{}))"
assertRight (parseTypeQuery input)
(QRow (l [ Tuple "row1" (QConst "Int")
, Tuple "row2" (QRow Nil)
, Tuple "row3" (QRow (l [ Tuple "row4" (QApp (QConst "Record") (QRow Nil)) ])) ]))
suite "polish notation" do
test "test #1" do