Browse files

Fixed Extend instance for Seq. Closes #8

  • Loading branch information...
1 parent 2dda927 commit 841e8ddb2181cb88d5c7b52ff482d232d788e53a @Taneb Taneb committed Jun 11, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Data/Functor/Extend.hs
View
2 src/Data/Functor/Extend.hs
@@ -67,7 +67,7 @@ instance Semigroup m => Extend ((->)m) where
duplicated f m = f . (<>) m
instance Extend Seq where
- duplicated = Seq.tails
+ duplicated l = Seq.take (Seq.length l) (Seq.tails l)
instance Extend Tree where
duplicated w@(Node _ as) = Node w (map duplicated as)

0 comments on commit 841e8dd

Please sign in to comment.