@@ -18,7 +18,7 @@ import Types (Type (VarT))
18numTerm = do { whitespace; t <- item
18numTerm = do { whitespace; t <- item
19 ; case t of { NUMBER n -> return $ Number n; _ -> zero } }
19 ; case t of { NUMBER n -> return $ Number n; _ -> zero } }
20strTerm = do { whitespace; t <- item
20strTerm = do { whitespace; t <- item
21− ; case t of { STRING cs -> return . list $ map Chr cs
21+ ; case t of { STRING cs -> return $ Str cs
22 ; _ -> zero } }
22 ; _ -> zero } }
24varTerm = Var `liftM` var
24varTerm = Var `liftM` var