Merge pull request #576 from purescript/403

Fix #403
purescript · Aug 25, 2014 · 7af7355 · 7af7355
2 parents 21b4a49 + f17896d
commit 7af7355
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/examples/passing/NegativeBinder.purs b/examples/passing/NegativeBinder.purs
@@ -0,0 +1,7 @@
+module Main where
+
+test :: Number -> Boolean
+test -1 = false
+test _  = true
+
+main = Debug.Trace.trace "Done"
diff --git a/src/Language/PureScript/Parser/Declarations.hs b/src/Language/PureScript/Parser/Declarations.hs
@@ -24,7 +24,9 @@ module Language.PureScript.Parser.Declarations (
 ) where
 
 import Data.Maybe (isJust, fromMaybe)
+
 import Control.Applicative
+import Control.Arrow ((+++))
 
 import Language.PureScript.Parser.State
 import Language.PureScript.Parser.Common
@@ -365,7 +367,12 @@ parseBooleanBinder :: P.Parsec String ParseState Binder
 parseBooleanBinder = BooleanBinder <$> booleanLiteral
 
 parseNumberBinder :: P.Parsec String ParseState Binder
-parseNumberBinder = NumberBinder <$> C.integerOrFloat
+parseNumberBinder = NumberBinder <$> (C.lexeme sign <*> C.integerOrFloat)
+  where
+  sign :: P.Parsec String ParseState (Either Integer Double -> Either Integer Double)
+  sign = (P.char '-' >> return (negate +++ negate))
+         <|> (P.char '+' >> return id)
+         <|> return id
 
 parseVarBinder :: P.Parsec String ParseState Binder
 parseVarBinder = VarBinder <$> C.parseIdent