sdiehl/write-you-a-haskell
1
1
Fork 0
mirror of https://github.com/sdiehl/write-you-a-haskell.git synced 2024-08-17 07:30:24 +03:00
Code Issues Projects Releases Wiki Activity

infixOp to prefixOp

Browse Source
This commit is contained in:
Jeffrey Rosenbluth 2015-01-20 10:48:22 -05:00
parent 846a6c19f5
commit 19bb1520c7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
chapter3/calc/Parser.hs
View File

@ -43,17 +43,17 @@ semiSep = Tok.semiSep lexer
reservedOp :: String -> Parser ()
reservedOp = Tok.reservedOp lexer
infixOp :: String -> (a -> a) -> Ex.Operator String () Identity a
infixOp s f = Ex.Prefix (reservedOp s >> return f)
prefixOp :: String -> (a -> a) -> Ex.Operator String () Identity a
prefixOp s f = Ex.Prefix (reservedOp s >> return f)
-- Infix operators
table :: Ex.OperatorTable String () Identity Expr
table = [
[
infixOp "succ" Succ
, infixOp "pred" Pred
, infixOp "iszero" IsZero
prefixOp "succ" Succ
, prefixOp "pred" Pred
, prefixOp "iszero" IsZero
]
]