summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPhilFreeman <>2013-11-07 18:21:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2013-11-07 18:21:00 (GMT)
commit51e8b07e76bcbd0e48708d37f15097c9175e85a5 (patch)
tree06b8a00065fbd8c406b547e79bda658863fff21c
parent9bb222fbb8deef49596dc954ec459b44adf89599 (diff)
version 0.1.70.1.7
-rw-r--r--purescript.cabal2
-rw-r--r--src/Language/PureScript/Parser/Values.hs2
-rw-r--r--src/Language/PureScript/Pretty/Values.hs2
3 files changed, 3 insertions, 3 deletions
diff --git a/purescript.cabal b/purescript.cabal
index ef67e73..9be84d0 100644
--- a/purescript.cabal
+++ b/purescript.cabal
@@ -1,5 +1,5 @@
name: purescript
-version: 0.1.6
+version: 0.1.7
cabal-version: >=1.8
build-type: Simple
license: MIT
diff --git a/src/Language/PureScript/Parser/Values.hs b/src/Language/PureScript/Parser/Values.hs
index baa1007..c0d60c8 100644
--- a/src/Language/PureScript/Parser/Values.hs
+++ b/src/Language/PureScript/Parser/Values.hs
@@ -136,7 +136,7 @@ parseValue = do
, Prefix $ C.lexeme (P.try $ C.indented *> C.reservedOp "+") >> return id ]
] ++ customOperatorTable user ++
[ [ Infix (C.lexeme (P.try (C.indented *> C.parseIdentInfix P.<?> "operator") >>= \ident -> return $ \t1 t2 -> App (App (Var ident) [t1]) [t2])) AssocLeft ]
- , [ Infix (C.lexeme (P.try $ C.indented *> C.reservedOp "!") >> return (flip Indexer)) AssocRight ]
+ , [ Infix (C.lexeme (P.try $ C.indented *> C.reservedOp "!!") >> return (flip Indexer)) AssocRight ]
, [ Infix (C.lexeme (P.try $ C.indented *> C.reservedOp "<=") >> return (Binary LessThanOrEqualTo)) AssocRight
, Infix (C.lexeme (P.try $ C.indented *> C.reservedOp ">=") >> return (Binary GreaterThanOrEqualTo)) AssocRight ]
, [ Infix (C.lexeme (P.try $ C.indented *> C.reservedOp "<") >> return (Binary LessThan)) AssocRight
diff --git a/src/Language/PureScript/Pretty/Values.hs b/src/Language/PureScript/Pretty/Values.hs
index 83d3ea5..f63d9b6 100644
--- a/src/Language/PureScript/Pretty/Values.hs
+++ b/src/Language/PureScript/Pretty/Values.hs
@@ -113,7 +113,7 @@ prettyPrintValue = fromMaybe (error "Incomplete pattern") . pattern matchValue
, [ Wrap app $ \args val -> val ++ "(" ++ args ++ ")" ]
, [ Split lam $ \args val -> "\\" ++ intercalate ", " args ++ " -> " ++ prettyPrintValue val ]
, [ Wrap ifThenElse $ \(th, el) cond -> cond ++ " ? " ++ prettyPrintValue th ++ " : " ++ prettyPrintValue el ]
- , [ AssocR indexer (\index val -> val ++ " ! " ++ index) ]
+ , [ AssocR indexer (\index val -> val ++ " !! " ++ index) ]
, [ binary LessThan "<" ]
, [ binary LessThanOrEqualTo "<=" ]
, [ binary GreaterThan ">" ]