-module Expr_eval (expr) where
+module Expr_eval (expr, testExpr) where
import DTFormat
-- define or label
s <- foldl1 (<|>) (fmap (try . string . fst) d);
return $ (get_elem s d)
- } <|> do {
+ } <|> try (do {
string "0";
r <- hexadecimal;
return $ fromInteger r
- } <|> do {
+ } ) <|> do {
r <- decimal;
return $ fromInteger r
} <?> "factor"