Jules Bean wrote:
data paramType = JNum | JBool | JStr
paramParser JNum = numExpr
paramParser JBool = boolExpr
paramParser JStr = strExpr
unary x pt = reserved (quasiShow (x undefined)) >> parens (paramParser
pt) >>= return . x
strCall = choice ( map unary
[ELDateToString,TextGetString,LowerStr,UpperStr,Spaces] )
Oops.
unary (x,pt) = reserved (quasiShow (x undefined)) >> parens (paramParser
pt) >>= return . x
strCall = choice ( map unary
[(ELDateToString,JNum),(TextGetString,JNum),
(LowerStr,JStr),(UpperStr,JStr),(Spaces,JStr)] )
(have to specify the param types)
Jules
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
