summaryrefslogtreecommitdiff
path: root/libraries/base/Data/List
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2015-10-12 11:36:01 +0200
committerHerbert Valerio Riedel <hvr@gnu.org>2015-10-12 11:36:12 +0200
commite737a5126dcfdd0610587d2ec16bea6481cf2a42 (patch)
tree03b5a0730980021ea72741bc63818e90b10090d0 /libraries/base/Data/List
parent4bd58c179b8d0f8cf2850acb920cef8605826a2a (diff)
downloadhaskell-e737a5126dcfdd0610587d2ec16bea6481cf2a42.tar.gz
base: MRP-refactoring of AMP instances
This refactors `(>>)`/`(*>)`/`return`/`pure` methods into normal form. The redundant explicit `return` method definitions are dropped altogether. The explicit `(>>) = (*>)` definitions can't be removed yet, as the default implementation of `(>>)` is still in terms of `(*>)` (even though that should have been changed according to the AMP but wasn't -- see note in GHC.Base for details why this had to be postponed) A nofib comparision shows this refactoring to result in minor runtime improvements (unless those are within normal measurement fluctuations): Program Size Allocs Runtime Elapsed TotalMem ------------------------------------------------------------------------- Min -0.0% -0.0% -1.6% -3.9% -1.1% Max -0.0% +0.0% +0.5% +0.5% 0.0% Geometric Mean -0.0% -0.0% -0.4% -0.5% -0.0% Full `nofib` report at https://phabricator.haskell.org/P68 Reviewers: quchen, alanz, austin, #core_libraries_committee, bgamari Reviewed By: bgamari Differential Revision: https://phabricator.haskell.org/D1316
Diffstat (limited to 'libraries/base/Data/List')
-rw-r--r--libraries/base/Data/List/NonEmpty.hs1
1 files changed, 0 insertions, 1 deletions
diff --git a/libraries/base/Data/List/NonEmpty.hs b/libraries/base/Data/List/NonEmpty.hs
index 6698a0ba58..d8bad07c7b 100644
--- a/libraries/base/Data/List/NonEmpty.hs
+++ b/libraries/base/Data/List/NonEmpty.hs
@@ -189,7 +189,6 @@ instance Applicative NonEmpty where
(<*>) = ap
instance Monad NonEmpty where
- return a = a :| []
~(a :| as) >>= f = b :| (bs ++ bs')
where b :| bs = f a
bs' = as >>= toList . f