Repository : ssh://[email protected]/containers On branch : ghc-head Link : http://git.haskell.org/?p=packages/containers.git;a=commit;h=8e4996a07339bcef9d5acc207dcefff18d981e39
>--------------------------------------------------------------- commit 8e4996a07339bcef9d5acc207dcefff18d981e39 Author: Milan Straka <[email protected]> Date: Wed Nov 14 21:50:33 2012 +0100 Provide explicit definition for <*> instead of using ap. >--------------------------------------------------------------- 8e4996a07339bcef9d5acc207dcefff18d981e39 Data/Sequence.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Data/Sequence.hs b/Data/Sequence.hs index a11dec1..9bfd6f9 100644 --- a/Data/Sequence.hs +++ b/Data/Sequence.hs @@ -202,7 +202,8 @@ instance Monad Seq where instance Applicative Seq where pure = singleton - (<*>) = ap + fs <*> xs = foldl' add empty fs + where add ys f = ys >< fmap f xs instance MonadPlus Seq where mzero = empty _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
