Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge branch 'master' of github.com:ekmett/semigroupoids

  • Loading branch information...
commit a96cc6f73169aade67574a3318b8b56eeb23106b 2 parents 9e06dba + 841e8dd
@ekmett authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/Data/Functor/Extend.hs
View
2  src/Data/Functor/Extend.hs
@@ -71,7 +71,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)
Please sign in to comment.
Something went wrong with that request. Please try again.