Semigroup (Anim a) doesnt need Semigroup a

Haskell-Things · May 4, 2022 · 8025785 · 8025785
1 parent c0923c5
commit 8025785
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/anim/Anim.hs b/anim/Anim.hs
@@ -18,7 +18,7 @@ duration (Animation d _) = d
 mkAnimation :: Duration -> (Time -> a) -> Animation a
 mkAnimation = Animation
 
-instance (Semigroup a) => Semigroup (Animation a) where
+instance Semigroup (Animation a) where
   (Animation d1 a1) <> (Animation d2 a2) = Animation (d1 + d2)
     $ \t -> if t < d1/d
        then a1 (t * d/d1)