Updated times1p behavior for [a] (closes #9)

ekmett · Dec 20, 2012 · 194c8da · 194c8da
1 parent ff1214d
commit 194c8da
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Data/Semigroup.hs b/Data/Semigroup.hs
@@ -125,6 +125,9 @@ instance Semigroup b => Semigroup (a -> b) where
 
 instance Semigroup [a] where
   (<>) = (++)
+  times1p n x = rep n where
+    rep 0 = x
+    rep i = x ++ rep (i - 1)
 
 instance Semigroup a => Semigroup (Maybe a) where
   Nothing <> b       = b

diff --git a/semigroups.cabal b/semigroups.cabal
@@ -1,6 +1,6 @@
 name:          semigroups
 category:      Algebra, Data, Data Structures, Math
-version:       0.8.4.1
+version:       0.8.5
 license:       BSD3
 cabal-version: >= 1.10
 license-file:  LICENSE