Commit 36703597 authored by John van Groningen's avatar John van Groningen
Browse files

use mapSt instead of seqList (seqList will be removed from StdEnv)

parent 24199974
......@@ -1596,7 +1596,7 @@ wantInstanceDeclaration parseContext pi_pos pState
// otherwise // ~ (isIclContext parseContext)
| token == CommaToken
# (pi_types_and_contexts, pState) = want_instance_types pState
(idents, pState) = seqList [stringToIdent class_name (IC_Instance type) \\ (type,context) <- pi_types_and_contexts] pState
(idents, pState) = mapSt (\ (type,_) -> stringToIdent class_name (IC_Instance type)) pi_types_and_contexts pState
= (PD_Instances
[ { pim_pi = { pi_class = pi_class, pi_ident = ident, pi_types = type, pi_context = context
, pi_specials = SP_None, pi_pos = pi_pos},
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment