git.iko.soy/elk
on master help sign in
Properly carry module uses through Result.andThen
357dedfEvan Czaplicki
src/Transform/Canonicalize/Result.hs+3−1
compare with master
unifiedsplit
@@ -58,7 +58,9 @@ andThen (Result uses rawResult) callback =
58 Result uses (Err msg)
58 Result uses (Err msg)
59
59
60 Ok value ->
60 Ok value ->
61− callback value
61+ let (Result uses' rawResult') = callback value
62+ in
63+ Result (Set.union uses uses') rawResult'
62
64
63
65
64instance F.Functor (Result e) where
66instance F.Functor (Result e) where