purescript 0.2.6 → 0.2.7

raw patch · 6 files changed

+1/−11 lines, 6 files

Files

purescript.cabal +1/−1
src/Language/PureScript/CodeGen/JS.hs +0/−1
src/Language/PureScript/Parser/Values.hs +0/−4
src/Language/PureScript/Pretty/Values.hs +0/−1
src/Language/PureScript/TypeChecker/Types.hs +0/−3
src/Language/PureScript/Values.hs +0/−1

purescript.cabal view

@@ -1,5 +1,5 @@ name: purescript-version: 0.2.6+version: 0.2.7 cabal-version: >=1.8 build-type: Simple license: MIT

src/Language/PureScript/CodeGen/JS.hs view

@@ -187,5 +187,4 @@   elseToJs :: ElseStatement -> JS   elseToJs (Else sts) = JSBlock (map (statementToJs m e) sts)   elseToJs (ElseIf elif) = ifToJs elif-statementToJs m e (ValueStatement val) = valueToJs m e val statementToJs m e (Return value) = JSReturn (valueToJs m e value)

src/Language/PureScript/Parser/Values.hs view

@@ -211,9 +211,6 @@ parseElseStatement = C.reserved "else" >> (ElseIf <$> parseIfStatement                                            <|> Else <$> parseManyStatements) -parseValueStatement :: P.Parsec String ParseState Statement-parseValueStatement = ValueStatement <$> (parseValue <* C.semi)- parseReturn :: P.Parsec String ParseState Statement parseReturn = Return <$> (C.reserved "return" *> parseValue <* C.indented <* C.semi) @@ -224,7 +221,6 @@                  , parseWhile                  , parseFor                  , parseIf-                 , parseValueStatement                  , parseReturn ] P.<?> "statement"  parseStringBinder :: P.Parsec String ParseState Binder

src/Language/PureScript/Pretty/Values.hs view

@@ -205,7 +205,6 @@   ++ " until " ++ prettyPrintValue end ++ ": {"   ++ intercalate "; " (map prettyPrintStatement sts) ++ " }" prettyPrintStatement (If ifst) = prettyPrintIfStatement ifst-prettyPrintStatement (ValueStatement val) = prettyPrintValue val prettyPrintStatement (Return value) = "return " ++ prettyPrintValue value  prettyPrintIfStatement :: IfStatement -> String

src/Language/PureScript/TypeChecker/Types.hs view

@@ -540,9 +540,6 @@   check end Number   (allCodePathsReturn, _) <- bindLocalVariables moduleName [(ident, Number)] $ checkBlock mass ret inner   return (allCodePathsReturn, mass)-checkStatement mass _ (ValueStatement val) = do-  check val unit-  return (False, mass) checkStatement mass ret (Return val) = do   check val ret   return (True, mass)

src/Language/PureScript/Values.hs view

@@ -85,7 +85,6 @@   | While Value [Statement]   | For Ident Value Value [Statement]   | If IfStatement-  | ValueStatement Value   | Return Value deriving (Show, Data, Typeable)  data IfStatement = IfStatement Value [Statement] (Maybe ElseStatement) deriving (Show, Data, Typeable)