
5 Apr
2007
5 Apr
'07
8:25 a.m.
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