- else let stuff = map lkupWay ws
- tag = concat [ wayTag w | w <- stuff, not (wayRTSOnly w) ]
- rts_tag = concat (map wayTag stuff)
- flags = map wayOpts stuff
+ else let ways = map lkupWay ws
+ tag = mkBuildTag (filter (not.wayRTSOnly) ways)
+ rts_tag = mkBuildTag ways
+ flags = map wayOpts ways