diff options
| author | Carter Tazio Schonwald <carter.schonwald@gmail.com> | 2020-01-23 12:47:55 -0500 |
|---|---|---|
| committer | Carter Tazio Schonwald <carter.schonwald@gmail.com> | 2020-01-23 12:47:55 -0500 |
| commit | 8a87c0ed02d45a69e9ffd0368118094a2eeac7dd (patch) | |
| tree | 3a6dee01b96032fac8b19ae1a328f535f3ff3d36 | |
| parent | 3253dde87a727bd3280dc74cd69ebdedc27a49a9 (diff) | |
| download | haskell-wip/dlist.tar.gz | |
revert a change that made things more complicatedwip/dlist
| -rw-r--r-- | compiler/coreSyn/CoreSyn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreSyn.hs b/compiler/coreSyn/CoreSyn.hs index 71b2c587c2..5668cf636c 100644 --- a/compiler/coreSyn/CoreSyn.hs +++ b/compiler/coreSyn/CoreSyn.hs @@ -2109,7 +2109,7 @@ bindersOf (Rec pairs) = [binder | (binder, _) <- pairs] -- | 'bindersOf' applied to a list of binding groups bindersOfBinds :: [Bind b] -> [b] -bindersOfBinds = DL.toList . DL.concat . fmap (DL.fromList . bindersOf) +bindersOfBinds binds = foldr ((++) . bindersOf) [] binds rhssOfBind :: Bind b -> [Expr b] rhssOfBind (NonRec _ rhs) = [rhs] |