diff options
Diffstat (limited to 'compiler/GHC/Tc/Gen/Export.hs')
-rw-r--r-- | compiler/GHC/Tc/Gen/Export.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Gen/Export.hs b/compiler/GHC/Tc/Gen/Export.hs index 2055b3101c..61ff252f4c 100644 --- a/compiler/GHC/Tc/Gen/Export.hs +++ b/compiler/GHC/Tc/Gen/Export.hs @@ -139,7 +139,7 @@ emptyExportAccum = ExportAccum emptyOccEnv emptyUniqSet accumExports :: (ExportAccum -> x -> TcRn (Maybe (ExportAccum, y))) -> [x] -> TcRn [y] -accumExports f = fmap (catMaybes . snd) . mapAccumLM f' emptyExportAccum +accumExports f = fmap (catMaybes . snd) . mapAccumLM' f' emptyExportAccum where f' acc x = do m <- attemptM (f acc x) pure $ case m of |