Corrected the accum stuff to rebuild after substitute is called
This commit is contained in:
parent
5bb528fbc3
commit
393bb75eb4
|
@ -421,7 +421,7 @@ applyAccum (accEmpty, accOneF, accJoinF) typeKeysGiven = applyAccum'
|
||||||
f' (x, route, acc) = do
|
f' (x, route, acc) = do
|
||||||
x' <- f (x, route, acc)
|
x' <- f (x, route, acc)
|
||||||
case x' of
|
case x' of
|
||||||
Left y -> f' (y, route, acc {- TODO recalculate from scratch -})
|
Left y -> f' (y, route, foldl (flip accOneF) accEmpty (fastListify (const True) y))
|
||||||
Right y -> return y
|
Right y -> return y
|
||||||
|
|
||||||
applyTopDown :: TypeSet -> (forall a. Data a => TransFunc a) ->
|
applyTopDown :: TypeSet -> (forall a. Data a => TransFunc a) ->
|
||||||
|
|
Loading…
Reference in New Issue
Block a user