diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2017-03-12 21:56:31 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2017-03-12 21:56:47 +0300 |
| commit | e5453a0e69911f135c192219189104bd0d2e3b5d (patch) | |
| tree | a457c8d70ed5a71ee715b4c56920878e99f39505 /compiler/simplCore | |
| parent | 740ecda32116abe84b6d7d4786b3e2ad9c8ba2a4 (diff) | |
| download | haskell-e5453a0e69911f135c192219189104bd0d2e3b5d.tar.gz | |
Remove `runs` function which already exists in base
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3320
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/CoreMonad.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/simplCore/CoreMonad.hs b/compiler/simplCore/CoreMonad.hs index ac3e2c4fb9..209d0f8370 100644 --- a/compiler/simplCore/CoreMonad.hs +++ b/compiler/simplCore/CoreMonad.hs @@ -76,7 +76,6 @@ import UniqFM ( UniqFM, mapUFM, filterUFM ) import MonadUtils import NameCache import SrcLoc -import ListSetOps ( runs ) import Data.List import Data.Ord import Data.Dynamic @@ -348,7 +347,7 @@ pprTickCounts counts where groups :: [[(Tick,Int)]] -- Each group shares a comon tag -- toList returns common tags adjacent - groups = runs same_tag (Map.toList counts) + groups = groupBy same_tag (Map.toList counts) same_tag (tick1,_) (tick2,_) = tickToTag tick1 == tickToTag tick2 pprTickGroup :: [(Tick, Int)] -> SDoc |