thereadme/mathexpr
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

fix: negation on negative number

Browse Source
This commit is contained in:
Mahdi Dibaiee 2016-11-04 22:32:19 +03:30
parent 53fa9cfa26
commit 05f89b991d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/MathExpr.hs
View File

@ -81,6 +81,7 @@ module Data.MathExpr
-- negative numbers come in the form ["num", "-"] -- negative numbers come in the form ["num", "-"]
helper [] [o] = read o helper [] [o] = read o
helper [n, "-"] [] = negate . read $ n helper [n, "-"] [] = negate . read $ n
helper ["-"] [n] = negate . read $ n
helper (c:cs) os helper (c:cs) os
| c == "-" && length os < 2 = | c == "-" && length os < 2 =
let result :: Double = negate . read . head $ cs let result :: Double = negate . read . head $ cs